%
If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp"
dstyle = Application("Classify_Main_Config" & strUnique)(30)
css = replace(dstyle, ".css", "")
If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then
userID = CLng(Request.Form("userID"))
packID = CLng(Request.Form("D1"))
If packID = 0 then
packExp = ConvDate(Now)
Else
strPack = "SELECT pdur FROM " & tablPfx & "Pack WHERE packID = " & packID & ";"
Set rs = objConn.Execute(strPack)
pdur = rs(0)
rs.close
packExp = DateAdd("d", pdur, Now)
packExp = ConvDate(packExp)
End If
sdd = dd(objConn)
If Request.Form("C1") = 1 AND Not packID = 0 then
ishold = ", ishold = 1"
Else: ishold = ", ishold = 0"
End If
objConn.Execute("UPDATE " & tablUPfx & "User SET pexpire = " & sdd & packExp & sdd & ", paypack = " & packID & ishold & " WHERE userID = " & userID & ";")
Response.Redirect "admin_userdetp.asp?id=" & userID
End If
userID = Request("id")
strUser = "SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User WHERE userID = " & userID & ";"
Set rs = objConn.Execute(strUser)
email = rs("email")
email = CryptText(email, key, True)
setLocale server_locale
cred = FormatNumber(CCur(rs("credits")), 2)
nick = rs("nick")
uPackID = CLng(rs("paypack"))
uPackExp = CDate(rs("pexpire"))
rs.close
strPack = "SELECT packID,pname FROM " & tablPfx & "Pack;"
Set rspack = objConn.Execute(strPack)
If Not rspack.EOF then
Do While Not rspack.EOF
nextPackID = CLng(rspack(0))
nextPackName = rspack(1)
If nextPackID = uPackID then
uPackName = nextPackName
End If
packOpt = packOpt & "" & vbcrLf
rspack.MoveNext
Loop
End If
rspack.close
If Len(uPackName) = 0 then
uPackNameDisplay = "None"
Else
uPackNameDisplay = "" & uPackName & " Expires: " & uPackExp
End If
%>
User Details - <%= email %>