| "
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "CCBL_BoxScores"
SQL = "SELECT * FROM 88HBOX.CSV"
Set Rs = Conn.Execute(SQL)
Do While Not Rs.EOF
If Len(Rs(7)) > 0 Then Response.Write ""
'If Len(Rs(7)) > 0 Then Response.Write ""
Response.Write ""
Response.Write Rs(1) & " " & Rs(2) & " "
If Len(Rs(7)) > 0 Then Response.Write Rs(3) & " "
Response.Write "@ "
Response.Write Rs(4) & " "
If Len(Rs(7)) > 0 Then Response.Write Rs(5)
If Len(Rs(7)) > 0 Then Response.Write ""
LastDate = Rs(1)
Rs.MoveNext
If Not Rs.EOF Then
If LastDate <> Rs(1) Then
Response.Write " " End If End If Loop Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing Response.Write " | "
Response.Write "