<% UserID = Chr(34) & Request.QueryString("user") & Chr(34) Set ProfileRS = Server.CreateObject("ADODB.RecordSet") ProfileSQL= "Select * FROM SLUsers WHERE D2Username = " & UserID & ";" ProfileRS.Open ProfileSQL, whtConn, 1 Dim Username, FirstName, LastName, BoatName, BoatType, BoatLocation, State, Country, Qualifications,Experience, Best, Worst, Iam, Visible Username = ProfileRS("D2Username") FirstName = ProfileRS ("D2FirstName") LastName = ProfileRS ("D2Surname") BoatName = ProfileRS("D2Addr1") BoatType = ProfileRS("D2Addr2") BoatLocation = ProfileRS("D2Addr3") State = ProfileRS("D2StateCounty") Country = ProfileRS("D2Country") Qualifications = ProfileRS("D2Custom1") Experience = ProfileRS("D2Custom2") Best = ProfileRS("D2Custom3") Worst = ProfileRS("D2Custom4") Iam = ProfileRS("D2Custom5") Visible = ProfileRS("D2Custom9") ProfileRS.Close Set ProfileRS = Nothing %> <%If Visible=0 Then%>

User Profile

<% =Username %> - This user has decided not to publish their details.

<%Else%>

<% =Username %>

Name:	<% =FirstName %> <% =LastName %>
Boat Type:	<% =BoatType %>
Boat Location:	<% =BoatLocation %>
State/County:	<% =State %>
Country:	<% =Country %>
Qualifications:	<% =Qualifications %>
Experience:	<% =Experience %>
Best Sail:	<% =Best %>
Worst experience:	<% =Worst %>
I am:	<% =Iam %>

<%End If%>