<% IF Session("aff_UserID")<>"" then response.redirect "affprofile.asp" end if If (Session("UserID"))="" Then Response.Redirect "index.asp?error=1" End If %> <% Dim Member, query query = "Select * From Members Where ID=" & CInt(Session("UserID")) Set Member = Server.CreateObject("ADODB.Recordset") Member.Open query, objConn, adOpenStatic, adLockReadOnly If Not Member.Eof Then %> Edit Profile
 

Edit your profile


">
  First Name* " size="30">
  Last Name* " size="30">
  Password ">
  Address: " size="60">
  City " size="30">
  State: ">
  Country ">
  HintQuestion " size="60">
  HintAnswer " size="60">
  ZIP Code " size="20">
  Phone " size="20">
  Fax Number " size="20">
  Image Name

">

  Profile
  Gender:
  Date Of Birth: MM DD YYYY
  Height (Feet and In.) Feet   In cm " size="6" maxlength="3">
  Weight ( lbs / kgs)  Lbs.  " size="5" onBlur="kg2lbs();"> Kg
  Build  <%= Member("Build") %>
  Eye Color <%= Member("EyeColor") %>
  Hair Color <%= Member("HairColor") %>
  Do you have facial hair  <%= Member("facialhair") %>
  Looks <%= Member("Looks") %>
  Current Relationship: <%= Member("relationtype") %>

 
<% End If Member.Close Set Member = Nothing objConn.Close Set objConn = Nothing %>