<% response.buffer=true Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Cache-Control", "private" %> Show Fixtures
Current Fixtures

<% varToday = date() varTodayMonth = MonthName(month(varToday)) varTodayYr = year(varToday) myDSN="DSN=PGC;uid=admin;pwd=admin" mySQL="select * from Fixtures Where Held_Mon='" mySQL=mySQL & varTodayMonth & "'" mySQL=mySQL & " AND Held_Yr='" mySQL=mySQL & varTodayYr & "'" IDfield="ID" scriptviewer="fixview.asp" set conntemp=server.createobject("adodb.connection") conntemp.open myDSN set rstemp=conntemp.execute(mySQL) howmanyfields=4 'rstemp.fields.count -1 %>

<% ' Now lets grab all the records do while not rstemp.eof %> <% for i = 1 to howmanyfields%> <% next %> <% rstemp.movenext loop rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %>
  Date Month Year Event
<%view_link=scriptviewer & "?which=" & rstemp(idfield)%>

View

<%=rstemp(i)%>

Author: S.Lee 13.1.1 Rev.0.9