| |
| Contact
Info |
| Email
Address: |
<%if lcase(userObj("emailhidden")) = "yes" Then
response.write " undisclosed"
else
response.write userObj("email")
end if
%>
|
| Links |
| Homepage: |
<%=userObj("homepage")%>
|
| Cool
Links: |
<%=userObj("coollink")%>
|
| Picture |
| Picture
URL: |
<% if not userObj("pic_url") = "" Then%>
 ">
<% End if %>
|
| More
About Me |
|
Bio:
|
<%=userObj("bio")%>
|
| Hobbies:
|
<%=userObj("hobbies")%>
|
| Latest
News: |
<%=userObj("lastnews")%>
|
| Favorite
Quote: |
<%=userObj("favoritequote")%>
|
| Recent Topics |
<%
recentsql = "Select * from topics where topic_by = '"&varuserid&"' "
Set recentObj = Conn.Execute(recentsql)
Do while not recentObj.EOF
'varlink = varlink & recentobj("subject") & "
"
varrlink = varrlink & ""&recentObj("subject") &"
"
recentObj.MoveNext
loop
%>
| <%=varrlink%> |
|
|
| Basics |
| Firstname: |
<%=userObj("firstname")%> |
| Surname: |
<%=userObj("lastname")%> |
| City: |
<%=userObj("city")%> |
| State: |
<%=userObj("state")%> |
| Country: |
<%=userObj("country")%>
|
| Age: |
<%=datefun(userObj("dateofbirth"))%> |
| Sex: |
<%
if Trim(userObj("gender")) = "F" Then
response.write "Female"
Else
response.write "Male"
End if
%> |
| Marital
Status: |
<%=userObj("mar_status")%> |
| Occupation: |
<%=userObj("occupation")%> |
| Signature: |
<%=replace(userObj("signature"),vbcrlf,"
")%>
|
|