<% subjectID = Request.QueryString("subject") subject4SQL = Chr(34) & Request.QueryString("subject") & Chr(34) subjectpageID= Request.QueryString("pagename") subjectpage4SQL= Chr(34) & Request.QueryString("pagename") & Chr(34) Set dataRS = Server.CreateObject("ADODB.RecordSet") dataSQL= "Select * FROM tblSailingPages WHERE active=-1 AND subjectname=" & subject4SQL & "AND subjectpage=" & subjectpage4SQL &";" dataRS.Open dataSQL, whtConn, 1 if mysqlrecordcount <> 1 then dataRS.Close Set dataRS = Nothing whtConn.Close Set whtConn = Nothing response.redirect("subject.asp") end if title = dataRS("Title") content1 = dataRS("Content1") content2 = dataRS("Content2") count = dataRS("counter") 'close connections,etc.. %> <%=title%>

<%=title%>

<% Elseif subjectpageID="1" Then %> HREF="subject_page.asp?subject=<%=subjectID%>&pagename=2">Next

<% Elseif subjectpageID="2" Then %> HREF="subject_page.asp?subject=<%=subjectID%>&pagename=3">Next

<% Elseif subjectpageID="3" Then %> HREF="subject_page.asp?subject=<%=subjectID%>&pagename=4">Next

<% Elseif subjectpageID="4" Then %> HREF="subject_page.asp?subject=<%=subjectID%>&pagename=5">Next

<% Else %> HREF="subject.asp">Next

<% End If %>

Index - 1 - 2 - 3 - 4 - 5 - HREF="subject_page.asp?subject=<%=subjectID%>&pagename=1">Next

Can you add to this page? - Add your own local knowledge, comments or feedback, and this will be added to the page. All submissions are reviewed. Include your e-mail and we will let you know once the web site has been updated.