<%
Dim strSQL, recCounter, fldValue, strOut, con, rs, rsCount
strSQL = "Select * "
strSQL = strSQL & "from tblRSVP "
strSQL = strSQL & "Order By dateReply "
strSQL = strSQL & ";"
recCounter = 0
strOut = ""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, con
If Not rs.EOF Then
rs.MoveFirst
%>
Last name
First name
email address
Number to attend
Will attend?
Message to MJ and Mike
Date of reply
<%
Do Until rs.EOF
recCounter = recCounter + 1
strOut = strOut & vbTab & "
" & vbCrLf
For i = 0 To rs.Fields.Count - 1
fldValue = RS(i).value
If IsNull(fldValue) or IsEmpty(fldValue) or fldValue="" Then
fldValue = " "
End If
strOut = strOut & vbTab & vbTab & "
"
strOut = strOut & fldValue & "
" & vbCrLf
Next
strOut = strOut & vbTab & "
" & vbCrLf
If recCounter = 10 Then
recCounter = 0
response.write(strOut)
strOut = ""
End If
rs.MoveNext
Loop
Else
%>
Query has produced no records
<%
End If
If recCounter > 0 Then
response.write(strOut)
strOut = ""
End If
rs.Close
con.Close
Set con = Nothing
%>