<%
If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp"
bLocation = server.mappath(bnrLocation)
setLocale server_locale
If request.querystring.count = 1 then
bName = request.querystring.item(1)
strSQL = "SELECT " & tablPfx & "Banner.* FROM " & tablPfx & "Banner WHERE bname = '" & bName & "';"
set rsRot = objConn.Execute(strSQL)
If rsRot.EOF then
Response.Write "
Indicated banner not found!
"
Else
If not Request.Form("B1") = Empty then
sdd = dd(objConn)
status = Request.Form("T3")
If status = "" then status = 0
URL = sq(Request.Form("T2"))
pdate = rsRot(6)
edate = CDate(pdate) + Request.Form("D3")
edate = ConvDateShort(edate)
rsRot.close
site = sqbl(Request.Form("T4"))
altText = sqbl(Request.Form("T5"))
email = sq(CryptText(Request.Form("T6"), key, False))
impr = CLng(Request.Form("D4"))
strSQL = "UPDATE " & tablPfx & "Banner SET URL = '" & URL & "', status = " & status & ", edate = " & sdd & edate & sdd
strSQL = strSQL & ", site = '" & site & "', altText = '" & altText & "', email = '" & email & "', impr = " & impr & " WHERE bname = '" & bName & "';"
objConn.Execute(strSQL)
If CBool(Request.Form("A1")) And CBool(Request.Form("T3")) then
Call sendEmail(Request.Form("T6"), notify_email, web_name & "- Your banner is active.", "Hello," & vbcrLf & vbCrLf & "Your banner was activated." & _
vbCrLf & vbCrLf & "To see statistics at any time please logon at: " & web_site & vbCrLf & "Click 'Advertise' and then 'See Rotator Statistics'." & _
vbCrLf & vbCrLf & "==============================" & vbCrLf & "Thank you," & vbCrLf & web_name & " Team.")
End If
Application("cl_rotator" & strUnique) = Empty
Response.Redirect "admin_rotator.asp"
Else
bURL = rsRot(4)
bSite = rsRot(3)
bAlt = rsRot(5)
bEmail = CryptText(rsRot(9), key, True)
If CBool(rsRot(1)) then st = "checked"
dur = CDate(rsRot(7)) - CDate(rsRot(6))
impr = CLng(rsRot(8))
End If
%>
<%
End If
rsRot.close
Else
Response.Write "
Banner was not indicated!
"
End If
%>
