<% dim conn 'database connection object dim rs 'recordset dim strSQL 'sql query dim endline 'set endline endline = chr(10) 'create the connection object set conn = Server.CreateObject("ADODB.Connection") 'open the connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;" 'create a recordset set rs = Server.CreateObject("ADODB.Recordset") 'set the sql statement strSQL = "SELECT ID,Name,Party_Size FROM Users WHERE Visible=ON AND Cruise_Attend=""Yes""" 'run the query and save to rs rs.Open strSQL, conn %> Legacy Cruise II
<%=welcomeString%>

Legacy Cruise II departs in
Home Register & Vote History Attendees Pictures Guestbook Links Feedback
List of confirmed attendees for Legacy Cruise II:
  <% if rs.EOF then response.write( "" ) else 'write results response.write( "" & endline ) response.write( "" & endline & "" & endline) do while not rs.EOF if ( Session("ID") = rs("ID") ) then response.write( "" & endline ) else response.write( "" & endline ) end if rs.MoveNext loop end if 'now close connection rs.Close set rs = Nothing set conn = Nothing %>
No one has signed up yet!
NameParty Size
" & rs("Name") & "" & rs("Party_Size") & "
" & rs("Name") & "" & rs("Party_Size") & "

 

Account Management   Email Newsletter

Copyright © 2005 Legacy Cruise Productions. All Rights Reserved.