<% If not session("discussionlogin") then response.redirect "./login.asp" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "SELECT * FROM users where email ='" & session("useremail") & "';" If session("userisadmin") Then If request("id")<>"" Then sql = "SELECT * FROM users where id =" & int(request("id")) End if End If rs.Open sql, dbConn, 1,2 name = rs("name") email = rs("email") password = rs("password") description = rs("description") website = rs("website") country = rs("country") id = rs("id") yahoo = rs("yahoo") msn = rs("msn") icq = rs("icq") aol = rs("aol") rs.close %> <%=meta%> <%searchbox%><%loginform%>

<%=sitename%> : Edit Profile
* Required fields
*Country	Choose Country <% set dbConn = Server.CreateObject("ADODB.Connection") set rs1 = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "SELECT * FROM country ORDER BY country.name;" rs1.Open sql, dbConn, 1,2 While not rs1.EOF %> value="<%=rs1("name")%>"><%=rs1("name")%> <% rs1.MoveNext Wend rs1.MoveFirst rs1.Close dbconn.Close set dbConn = Nothing set rs1 = Nothing %>
*Name	<%=name%>
*Email	<%=email%>
*Password
*Retype Password
Website
Yahoo
MSN
ICQ
AOL
Description Describe yourself. Age sex likings etc..	<%=description%>