<%
End Sub
If Len (Request.Form("width")) > 0 then
width = Request.Form("width")
lbar = CLng(Request.Form("lbar"))
rbar = CLng(Request.Form("rbar"))
portal = CLng(Request.Form("portal"))
objConn.Execute("UPDATE " & tablPfx & "Advert SET adv21 = " & lbar & ", adv22 = " & rbar & ", adv25 = '" & width & "', adv27 = " & portal & ";")
Application("advert" & strUnique) = Empty
Response.Redirect "admin_logon.asp"
End If
Dim flag
If Not session("admin_loggedin" & strSUnique) = Session.SessionID then
flag = Request.form("flag")
If flag = 0 then
flag = 1
message = "Type Admin ID and Password to Enter"
Call Logon(flag, message, htextcolor)
ElseIf flag = 1 then
Select Case seclog
Case True
AdminLogon = Request.Form("hash")
strConfig = "SELECT " & tablPfx & "Config.* from " & tablPfx & "Config;"
rs.Open strConfig, strConn
If not rs.eof then
getlogon = rs("admin_logon")
Set objMD5 = New MD5
objMD5.Text = getlogon & Session("Temp_Seed")
getlogon = objMD5.HEXMD5
End If
rs.close
Case Else
AdminLogon = Trim(Request.form("UserID")) & Trim(Request.form("Password"))
Set objMD5 = New MD5
objMD5.Text = AdminLogon
AdminLogon = objMD5.HEXMD5
strConfig = "SELECT " & tablPfx & "Config.* from " & tablPfx & "Config;"
rs.Open strConfig, strConn
If not rs.eof then
getlogon = rs("admin_logon")
End If
rs.close
End Select
If Not getlogon = AdminLogon then
flag = 1
session("admin_loggedin" & strSUnique) = Empty
message = "User ID or Password is invalid!"
Call Logon(flag, message, "#FF0000")
If isEvents then Call logEvent("Admin Logon Denied", Empty, Empty, Empty, Empty, Empty)
Else:
session("admin_loggedin" & strSUnique) = Session.SessionID
Response.Cookies("admin_loggedin" & strSUnique) = Session.SessionID
objConn.Execute("UPDATE " & tablPfx & "Config SET noexp = '" & Session.SessionID & "' ;")
removeOrphan
Session("Temp_Seed") = Empty
If isEvents then Call logEvent("Admin Logon", Empty, Empty, Empty, Empty, Empty)
Response.Redirect "admin_logon.asp"
End If
End If
End If
If session("admin_loggedin" & strSUnique) = Session.SessionID then
If mysql then
strSQL = "SELECT " & tablPfx & "Ads.status FROM " & tablPfx & "Ads WHERE (status = 0) LIMIT 0,1;"
Else: strSQL = "SELECT TOP 1 " & tablPfx & "Ads.status FROM " & tablPfx & "Ads WHERE (status = 0);"
End If
set rs = objConn.Execute(strSQL)
If Not rs.EOF then newads = " "
rs.close
If (isnotfree and Not ispack) Or Not isnotfree then
payLink = ""
Else: payLink = ""
End If
%>
<%
End If
Sub removeOrphan()
baseDate = Now - 2
baseDate = ConvDateShort(baseDate)
sdd = dd(objConn)
strSQL = "SELECT " & tablPfx & "Temp.tempimg FROM " & tablPfx & "Temp WHERE tdate < " & sdd & baseDate & sdd & ";"
set rsTemp = objConn.Execute(strSQL)
If not rsTemp.EOF then
On Error Resume Next
Do While Not rsTemp.EOF
nextImage = rsTemp(0)
objFile.DeleteFile(uploadPATH & nextImage)
rsTemp.MoveNext
Loop
On Error Goto 0
objConn.Execute("DELETE FROM " & tablPfx & "Temp WHERE tdate < " & sdd & baseDate & sdd & ";")
End If
rsTemp.close
set rsTemp = Nothing
objConn.Execute("DELETE FROM " & tablPfx & "Agent WHERE edate < " & sdd & ConvDateShort(Date) & sdd & ";")
End Sub
%>
"
rs.close
If (isnotfree and Not ispack) Or Not isnotfree then
payLink = ""
Else: payLink = ""
End If
%>
