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 SUM (RSVPCOUNT) AS columncount FROM guestlist") response.write rsDsp("columncount") DataConn.Close %>
Total Groom 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 SUM (RSVPCOUNT) AS columncount FROM guestlist where brideorgroom='groom'") response.write rsDsp("columncount") DataConn.Close %>
Total Bride 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 SUM (RSVPCOUNT) AS columncount FROM guestlist where brideorgroom='Bride'") response.write rsDsp("columncount") DataConn.Close %>
Total Both 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 SUM (RSVPCOUNT) AS columncount FROM guestlist where brideorgroom='both'") 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 ORDER BY ID") %>
<% While Not rsDsp.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsDsp.MoveNext Wend Response.Write "
Id Name Full Name BrideOrGroom Table # Family Count RSVP Notes Notes
" & rsDsp("Id").Value & "" & rsDsp.Fields.Item("SurName").Value & rsDsp.Fields.Item("FirstName").Value & " " & rsDsp.Fields.Item("LastName").Value & "" & rsDsp("FirstLast").Value & "" & rsDsp("BrideorGroom").Value & "" & rsDsp("Tableno").Value & "" & rsDsp("family").Value & "" & rsDsp("rsvpcount").Value & "" & rsDsp("rsvpnote").Value & "" & rsDsp("notes").Value & "
" DataConn.Close %>