Total RSVP Count: <% Set DataConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Webspace\dmoadabHC\dmoadabweb\moadab.com\www\DB\guests.mdb; " Set rsDsp = DataConn.Execute("SELECT Count (RSVPCOUNT) AS columncount FROM guestlist") response.write rsDsp("columncount") DataConn.Close %>

<% Set DataConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") DataConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Webspace\dmoadabHC\dmoadabweb\moadab.com\www\DB\guests.mdb; " Set rsDsp = DataConn.Execute("SELECT * FROM guestlist where RSVPRCVD=true ORDER BY ID") %>
<% While Not rsDsp.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsDsp.MoveNext Wend Response.Write "
Id Name Attending Number RSVP Note
" & rsDsp("Id").Value & "" & rsDsp.Fields.Item("SurName").Value & rsDsp.Fields.Item("FirstName").Value & " " & rsDsp.Fields.Item("LastName").Value & "" & rsDsp("RSVPCOMING").Value & "" & rsDsp("RSVPCOUNT").Value & "" & rsDsp("RSVPNOTE").Value & "
" DataConn.Close %>