<% Dim mstr_Sql Dim position mstr_Sql = "SELECT * FROM games_snowball order by score DESC" Set mrec_Recordset = Server.CreateObject("ADODB.Recordset") mrec_Recordset.CursorLocation = adUseClient mrec_Recordset.Open mstr_Sql, conn, adOpenForwardOnly, adLockReadOnly, adCmdText Set GetRecordset = mrec_Recordset If mrec_Recordset.BOF AND mrec_Recordset.EOF Then response.write "None" Else StartPosition = 0 x=0 For mlng_Record = 1 To 20 StartPosition = StartPosition + 1 If mlng_Record <= 10 Then If mlng_Record = 1 Then response.write "" if x=1 then response.write "" x=0 else response.write "" x=1 end if response.write "" response.write "" ' response.write "" response.write "" response.write "" response.write "" mrec_Recordset.MoveNext If mlng_Record = 10 Then response.write "" else If mlng_Record = 11 Then response.write "" if x=1 then response.write "" x=0 else response.write "" x=1 end if response.write "" response.write "" response.write "" response.write "" response.write "" mrec_Recordset.MoveNext End If If mrec_Recordset.EOF Then Exit For Next response.write "

Rank	Name	Company	Score
" & StartPosition & "	" & mrec_Recordset.Fields("Name").Value & "	" & TruncateString(mrec_Recordset.Fields("Company").Value, 18) & "	" & mrec_Recordset.Fields("Company").Value & "	" & mrec_Recordset.Fields("Score").Value & "
" & StartPosition & "	" & mrec_Recordset.Fields("Name").Value & "	" & TruncateString(mrec_Recordset.Fields("Company").Value, 18) & "	" & mrec_Recordset.Fields("Score").Value & "

" End If %>