<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim thesql %> <% if request.QueryString("area")="" then thesql = "SELECT * FROM teamoutrageous.fixtures WHERE fix_live <> 'fixture' ORDER BY fix_date DESC" %> <% Dim fixtures Dim fixtures_numRows Set fixtures = Server.CreateObject("ADODB.Recordset") fixtures.ActiveConnection = MM_outrage_STRING fixtures.Source = thesql fixtures.CursorType = 0 fixtures.CursorLocation = 2 fixtures.LockType = 1 fixtures.Open() fixtures_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 fixtures_numRows = fixtures_numRows + Repeat1__numRows %> Team Outrageous - Race Results<% if request.QueryString("area")="archive" then response.Write(" - Archive")%>

Results archive

<% While ((Repeat1__numRows <> 0) AND (NOT fixtures.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 fixtures.MoveNext() Wend %>

<%= DoDateTime((fixtures.Fields.Item("fix_date").Value), 1, 1033) %>	<%=(fixtures.Fields.Item("fix_details").Value)%>	<% if (fixtures.Fields.Item("fix_live").Value) = "result" or (fixtures.Fields.Item("fix_live").Value) = "archive" then %>');return document.MM_returnValue" onmouseover="className='textformactive';this.style.cursor='hand'" onmouseout="className='textform'" value="Full Results"><% else %> Results Pending<% end if %>

<% fixtures.Close() Set fixtures = Nothing %>