<% 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%>