<% Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "SELECT * FROM users where id =" & request("id") & ";" if request("name") <> "" then sql = "SELECT * FROM users where name='" & request("name") & "';" rs.Open sql, dbConn, 1,2 id = rs("id") name = rs("name") posts = rs("totalpost") email = rs("email") password = rs("password") description = rs("description") website = rs("website") country = rs("country") blocked = rs("blocked") admin = rs("admin") joindate = rs("date") lastpost = rs("lastpost") yahoo = rs("yahoo") msn = rs("msn") icq = rs("icq") aol = rs("aol") rs.close %> <%=sitename%>: Edit Profile <%=meta%> <%searchbox%><%loginform%>

<%If website <> "http://" then%> <%End If%> <%If yahoo <> "" then%> <%End If%> <%If msn <> "" then%> <%End If%> <%If icq <> "" then%> <%End If%> <%If aol <> "" then%> <%End If%> <%If description <> "" then%> <%end if%>
<%=sitename%>: View Profile
<%logincheck id,blocked,admin%> 
Name<%=name%> 
Country<%=country%> 
Total Posts<%=posts%>  [view]
Join Date<%=joindate%>
Last Post<%=lastpost%> 
Website<%=website%> 
Yahoo
MSN<%=msn%> 
ICQ<%=icq%>
AOLSend a Message Open a chat room Add to buddy list
Description <%=description%> 
 
 

Back to previous page

<% Sub logincheck(id,blocked,admin) If session("userisadmin") then response.write "x#" If blocked then response.write "L" else response.write "J" End if If admin Then response.write "K" else response.write "¡" End If response.write "" End if End Sub %>