<% dim conn 'database connection objects 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") 'get a record count strSQL = "SELECT COUNT(*) AS cnt FROM Users WHERE Visible=ON AND Cruise_Attend=""Yes""" rs.Open strSQL, conn dim count count = rs.Fields("cnt") rs.Close 'create an array to hold master id rows strSQL = "SELECT ID,Name,Party_Size FROM Users WHERE Visible=ON AND Cruise_Attend=""Yes""" rs.Open strSQL, conn 'create array to hold this information redim masterRows( count, 3 ) dim i i = 1 do while not rs.EOF masterRows( i, 1 ) = rs.Fields("ID") masterRows( i, 2 ) = rs.Fields("Name") masterRows( i, 3 ) = rs.Fields("Party_Size") i = i + 1 rs.MoveNext loop rs.Close %> 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 count = 0 then response.write( "" ) else 'write results response.write( "" ) response.write( "" & endline ) response.write( "" & endline & "" & endline) for i = 1 to count strSQL = "SELECT Name FROM Party WHERE MasterID=" & masterRows(i, 1) & "" rs.Open strSQL, conn 'master id row if ( Session("ID") = masterRows(i, 1) ) then response.write( "" ) else response.write( "" ) end if response.write( "" & endline ) 'write child rows dim j j = 1 do while not rs.EOF if ( Session("ID") = masterRows(i, 1) ) then response.write( "" ) response.write( "" & endline ) j = j + 1 rs.MoveNext loop rs.Close next end if 'now close connection set rs = Nothing set conn = Nothing %>
No one has signed up yet!
 NameParty Size
" ) 'only write the image if we have other party names if not rs.EOF then response.write( "" ) else response.write( " " ) end if 'end of master row response.write( "" & masterRows(i, 2) & "" & masterRows(i, 3) & "
   " & rs.Fields("Name") & " 

 

Account Management   Email Newsletter   Voting Results

Copyright © 2005 Legacy Cruise Productions. All Rights Reserved.