May 2nd, 2008, 06:22 AM
|
|
Registered User
|
|
Join Date: May 2008
Posts: 6
Time spent in forums: 15 m 21 sec
Reputation Power: 0
|
|
Code Code:
 Original
- Code Code |
|
|
|
<!--#INCLUDE FILE="../includes/vars.asp"-->
<%
'if session("userid") = "" then
'Response.Redirect "default.asp"
'end if
if request("id") <> "" then
id = cint(request("id"))
end if
%>
<html>
<head>
<SCRIPT LANGUAGE=javascript>
<!--
function docheck2(field1){
if(field1.value.length > 600){
field1.value = field1.value.substring(0, 600);
}
}
//-->
</SCRIPT>
<!--#INCLUDE FILE="includes/meta.asp"-->
</head>
<body bgcolor="FFFFFF" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0" background="/manager/images/bg.gif" LANGUAGE=javascript>
<table border="0" cellpadding="0" cellspacing="0" width="780">
<tr>
<td valign="top" align="left" colspan="5">
<!--#INCLUDE FILE="../includes/topbar.asp"-->
<%
if request("tname") <> "" then
session("tname") = request("tname")
end if
if request("nav") <> "" then
session("pagename") = Request.ServerVariables ("script_name")
if len(Request.QueryString) > 0 then
session("pagename") = session("pagename") & "?" & Request.QueryString
end if
end if
if request("nav") = "Edit_My_Details" then
session("pagename") = "admin.asp"
id = session("userid")
end if
if request("nav") = "Keywords" then
session("pagename") = "admin.asp"
'id = 1
end if
if request("activate") = "true" then ' activate
if request("type") = "2" then
sql = "update product set fkactiveid = 1 where pkproductid = " & cint(request("id"))
else
sql = "update product set fkactiveid = 2 where pkproductid = " & cint(request("id"))
end if
oConn.execute(sql)
end if
tablename = session("tname")
pagename = "generic.asp"
listsql = "select * from " & tablename & " where pk" & tablename & "id <> 0 "
if request("parentid") <> "" then
parentid = cint(request("parentid"))
listsql = listsql & " and fkparentid = " & parentid
end if
todaydate = year(date) & "/" & month(date) & "/" & day(date)
if session("app") = "agritrader" then
todaydate = "'" & todaydate & "'"
else
todaydate = "#" & todaydate & "#"
end if
if request("type") <> "" then
listsql = listsql & " and fkactiveid = " & request("type")
if cint(request("type")) = 1 then
listsql = listsql & " or product.start_date >= " & todaydate & " or product.expiry_date <= " & todaydate
else
listsql = listsql & " and product.start_date <= " & todaydate & " AND product.expiry_date >= " & todaydate
end if
end if
todaydate = year(date) & "/" & month(date) & "/" & day(date)
if request("fkproductid") <> "" then ' link table
listsql = listsql & " and fkproductid = " & request("fkproductid")
end if
if request("fkproductid") <> "" then ' link table
listsql = listsql & " and fkproductid = " & request("fkproductid")
session("selectedid") = request("fkproductid")
end if
if not session("super_user") then
if request("tname") = "agent" and lcase(session("usertype")) = "principal" then
listsql = listsql & " and fkprincipalid = " & cint(session("userid"))
end if
if (request("tname") = "client" or request("tname") = "product") and lcase(session("usertype")) = "principal" then
listsql = listsql & " and fkprincipalid = " & cint(session("principalid"))
end if
if (request("tname") = "client" or request("tname") = "product") and lcase(session("usertype")) = "agent" then
listsql = listsql & " and fkagentid = " & cint(session("agentid"))
end if
end if
if tablename = "product" then
listsql = listsql & " order by reference_number desc"
else
listsql = listsql & " order by " & tablename & "_name"
end if
if request("submit1") = "Submit" then
if request("tname") <> "" then
session("tname") = request("tname")
tablename = request("tname")
end if
if request("action") = "add" then ' insert
for myqty = 1 to cint(request("myqty"))
if not insert(tablename, lngerr, strmsg, inssql, myqty) then
if session("pagename") = "" then
Response.Redirect "admin.asp"
else
Response.Redirect session("pagename")
end if
'Response.Write "Insert failed for tablename " & tablename & " : " & strmsg & "<br><br> sql: " & replace(inssql,VbCrlf,"<br>") & " <br><br><a href=# onclick=history.back();>Try again</a>"
'Response.end
'exit for
else
' send email for new product
if session("tname") = "product" then
SendFrom = session("useremail")
strSubject = "New Product (" & request("strProduct_Name") & ") added to website from user: " & session("username")
strBody = strSubject & vbcrlf & vbcrlf
strBody = strBody & "Please login to <a href></a> to activate this product." & vbcrlf & vbcrlf
strBody = strBody & "Thank you."
if Request.ServerVariables ("local_addr") = session("myIP") then
SendTo = "pjenkins@mweb.com"
else
SendTo = session("mailto")
end if
Call CDONTSMail(SendFrom, SendTo, strSubject, strBody)
'Response.Write "email sent to " & SendTo
'Response.end
end if
end if
next
%>
<!--#INCLUDE FILE="includes/close.asp"-->
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
