<% 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 %>
<% For I = 1 to 7 If not Application("Classify_Main_Config" & strUnique)(I+13) = Empty then %> <% End If Next %>
Payment Details for User:  <%= email %>
Credits on Account:  <%= cred %>
Add/Remove Credits: 
<% Response.Write "" Response.Write " " Response.Write "" %>
Package on Account:  <%= uPackNameDisplay %>
Change/Remove Package:
- Hold