<% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_GLA2012_STRING Recordset1_cmd.CommandText = "SELECT * FROM Results WHERE ID = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% DIM CurrentID,NextID,PreviousID,NextIDlink,PreviousIDlink,LinkBegin,PreviousLinkEnd,NextLinkEnd CurrentID=Request.QueryString("ID") NextID=CurrentID+1 PreviousID=CurrentID-1 LinkBegin="Next" PreviousLinkEnd="'>Previous" NextIDLink=(LinkBegin & NextID & NextLinkEnd) PreviousIDlink = LinkBegin & PreviousID & PreviousLinkEnd %>


20th Annual Gold Leaf Award Winners


<% if (PreviousID > 0) Then Response.Write(PreviousIDlink) End if %>   <%=(Recordset1.Fields.Item("Category").Value)%> - <%=(Recordset1.Fields.Item("Rank").Value)%>  <% if (NextID <= 86) Then Response.Write(NextIDlink) End if %>

<%=(Recordset1.Fields.Item("Title").Value)%>

<%=(Recordset1.Fields.Item("Submittedby").Value)%>

 

<%=(Recordset1.Fields.Item("Details").Value)%>

 

" width="600" />