<% Dim connDB file_name = "_database/regatta.mdb" open_DB_connection(file_name) sql = "select * from ParticipantEntry WHERE EntryID = " & request.querystring("EntryID") Set rstemp = Server.CreateObject( "ADODB.Recordset" ) set rstemp=connDB.execute( sql ) %>
<%=rstemp("BoatName")%> 


Registration Information
       
Owner/Charterer <%=rstemp("TrophyName")%> From <%=rstemp("City")%>, <%=rstemp("State")%>
Yacht Club <%=rstemp("Club")%>    
       
Yacht Information
       
Sail Number <%=rstemp("SailNumber")%>    
Model <%=rstemp("BoatType")%> Length <%=rstemp("Length")%>
Fleet <%=rstemp("FleetShortName")%> DHCP Rating <%=rstemp("DHCP")%>
       
 

Entry Status

Signed Entry Received <%If rstemp("EntryReceivedDate") > "00/00/2007" Then response.write "Yes" Else response.write"No" End If%>
Payment Received <%If rstemp("EntryFeeReceived") = 1 Then response.write "Yes" Else response.write"No" End If%>
Insurance Certificate <%If rstemp("InsuranceReceived") = 1 Then response.write "Yes" Else response.write"No" End If%>
PHRF Certificate <%If rstemp("PHRFCertificateReceived") = 1 Then response.write "Yes" Else response.write"No" End If%>

 

 

 

 


RETURN TO LIST