%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% Dim Recordset1__MM_ColParam Recordset1__MM_ColParam = "1" if (Request.QueryString("ID") <> "") then Recordset1__MM_ColParam = Request.QueryString("ID") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_brinksterwheatonsail_STRING Recordset1.Source = "SELECT * FROM schedule WHERE ID = " + Replace(Recordset1__MM_ColParam, "'", "''") + " ORDER BY StartDate ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %>
|
Date | <%=(Recordset1.Fields.Item("StartDate").Value)%> |
Event Name | <%=(Recordset1.Fields.Item("EventName").Value)%> |
Location | <%=(Recordset1.Fields.Item("Location").Value)%> |
Place | <%=(Recordset1.Fields.Item("place").Value)%>/<%=(Recordset1.Fields.Item("totalteams").Value)%> | <% if useEventDescription then %>
Event Description | <%=(Recordset1.Fields.Item("EventDescription").Value)%> |
Skipper 1 | <%=(Recordset1.Fields.Item("Skipper1").Value)%> |
Crew 1 | <%=(Recordset1.Fields.Item("Crew1").Value)%> |
Skipper 2 | <%=(Recordset1.Fields.Item("Skipper2").Value)%> |
Crew 2 | <%=(Recordset1.Fields.Item("Crew2").Value)%> |
Crew 3 | <%=(Recordset1.Fields.Item("Crew3").Value)%> |
Crew 4 | <%=(Recordset1.Fields.Item("Crew4").Value)%> |
Pictures | <% if usepic1 then %> /<%=(Recordset1.Fields.Item("pic1").Value)%>.jpg"> /thumbs/<%=(Recordset1.Fields.Item("pic1").Value)%>.jpg" border="0" class="imageborder"> <% End If %> <% if usepic2 then %> /<%=(Recordset1.Fields.Item("pic2").Value)%>.jpg"> /thumbs/<%=(Recordset1.Fields.Item("pic2").Value)%>.jpg" border="0" class="imageborder"> <% End If %> <% if usepic3 then %> /<%=(Recordset1.Fields.Item("pic3").Value)%>.jpg"> /thumbs/<%=(Recordset1.Fields.Item("pic3").Value)%>.jpg" border="0" class="imageborder"> <% End If %> <% if usepic4 then %> /<%=(Recordset1.Fields.Item("pic4").Value)%>.jpg"> /thumbs/<%=(Recordset1.Fields.Item("pic4").Value)%>.jpg" border="0" class="imageborder"> <% End If %> |
Results | <%=(Recordset1.Fields.Item("results").Value)%> |
<% Recordset1.Close() %>