% If session("username")="" Then Response.Redirect "/user/default.asp" end if If not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_USER where username='"&session("username")&"'" dsreg.Open Sql,conn,1,1 session("usermoney")=dsreg("usermoney") dsreg.close set dsreg=nothing %>
|