Table Covers: $1199.47
Flowers: $3500.00
Pictures: $3500.00
Music: $4000.00
Cards: $600.00
Postage: $100.00
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\myguests.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\myguests.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\myguests.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\myguests.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\myguests.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 "" rsDsp.MoveNext Wend Response.Write "
Id Name BrideOrGroom Count
" & rsDsp("Id").Value & "" & rsDsp.Fields.Item("SurName").Value & rsDsp.Fields.Item("FirstName").Value & " " & rsDsp.Fields.Item("LastName").Value & "" & rsDsp("BrideorGroom").Value & "" & rsDsp("rsvpcount").Value & "
" DataConn.Close %>