<% on error resume next %>
>

All Fields marked with * are required
<% if strUseExtendedProfile then %> <% end if 'extended profile %>
valign=top> <% if strICQ = "1" then%> <% end if if strYAHOO = "1" then %> <% end if if strAIM = "1" then %> <% end if if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then %> <% if strHomepage = "1" then %> <% end if if strFavLinks = "1" then%> <% end if end if %> <% if strPicture = "1" then %> <% end if ' strPicture if (strBio + strHobbies + strLNews + strQuote) > 0 then strMyBio = rs("M_BIO") strMyHobbies = rs("M_HOBBIES") strMyLNews = rs("M_LNEWS") strMyQuote = rs("M_QUOTE") %> <% if strBio = "1" then %> <% end if if strHobbies = "1" then %> <% end if if strLNews = "1" then %> <% end if if strQuote = "1" then%> <% end if end if%>
 Contact Info 
align=right width="10%"" nowrap>*Email Address:  >"> ">
align=right nowrap>ICQ:  >">
align=right nowrap>YAHOO IM:  >">
align=right nowrap>AIM:  >">
Links 
align=right nowrap width="10%"">Homepage:  > " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>">
align=right nowrap width="10%"">Cool Links:  > " " and lcase(RS("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://") %>">
align=right nowrap width="10%"">  > " " and lcase(RS("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://") %>">
Picture 
Picture URL:  "") and lcase(RS("M_PHOTO_URL")) <> "http://" and not(IsNull(RS("M_PHOTO_URL"))) then Response.Write(ChkString(rs("M_PHOTO_URL"), "displayimage")) else Response.Write("http://") %>">
More About Me
valign=top align=right nowrap width="10%"> Bio:  valign=top>
valign=top align=right nowrap width="10%"> Hobbies:  valign=top>
valign=top align=right nowrap width="10%"> Latest News:  valign=top>
Favorite Quote:  valign=top>
valign=top> <% if Request.Querystring("mode") = "goModify" then %> <% end if if strAuthType = "nt" then %> <% else %> <% if Request.QueryString("mode") = "Register" or Request.QueryString("mode") = "goEdit" then %> <% end if end if if strFullName = "1" then %> <% end if if strCity = "1" then %> <% end if if strState = "1" then %> <% end if if strCountry = "1" then %> <% end if if strAge = "1" then %> <% end if if strSex = "1" then %> <% end if if strMarStatus = "1" then %> <% end if if strOccupation = "1" then %> <% end if if Request.Querystring("mode") = "goModify" then %> <% end if strTxtSig = RS("M_SIG") %> <% if Request.Form("Method_Type") = "Modify" then %> <% end if %> <% if not(strUseExtendedProfile) then %> <% if strICQ = "1" then%> <% end if if strYAHOO = "1" then %> <% end if if strAIM = "1" then %> <% end if end if if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then %> <% if strHomepage = "1" then %> <% end if if strFavLinks = "1" then strLINK1 = rs(M_LINK1) strLINK2 = rs(M_LINK2) %> <% end if end if %>
Basics
align=right nowrap width="10%"">*User Name:  > <% if (Request.QueryString("mode") = "goEdit") or (Request.Querystring("mode") = "goModify" and (Request.QueryString("Name") = "Admin") or Request.Form("MEMBER_ID") = 1 or Request.Form("Name") = "Admin") then %> <% =ChkString(rs("M_NAME"), "display") %> "> <% else %> "> <% end if %>
Title:  ">
*Your Account:  <% if Request.Form("Method_Type") = "Modify" then %> " size="20"> <% else %> <%=Session(strCookieURL & "userid")%>"> <% end if %>
* Password:  "> ">
* Password Again:  " size="25">
Firstname:  " size="20">
Surname:  " size="20">
City:  " size="20">
State:  " size="20">
Country: 
Age:  ">
Sex: 
Marital Status:  ">
Occupation:  ">
# of Posts:  ">
Signature: 
Member Level:  <% if rs("M_NAME") = "Admin" then %> Administrator <% else %> <% end if %>
 Contact Info 
align=right width="10%"" nowrap>*Email Address:  >"> ">
align=right nowrap width="10%"">ICQ:  >">
align=right nowrap width="10%"">YAHOO IM:  >">
align=right nowrap width="10%"">AIM:  >">
Links 
align=right nowrap width="10%"">Homepage:  > " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(ChkString(RS("M_Homepage"), "display")) else Response.Write("http://") %>">
align=right nowrap width="10%"">Cool Links:  > "http://" then Response.Write(ChkString(strLINK1, "display")) else Response.Write("http://") %>">
align=right nowrap width="10%"">  > "http://" then Response.Write(ChkString(strLINK2, "display")) else Response.Write("http://") %>">
<% if strUseExtendedProfile then %>

Back To Forum

> " name="MEMBER_ID">
<% else %>
> " name="MEMBER_ID">
<% end if %>