<% 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 "" Response.Write "" Response.Write "" 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 RSVPID Name Address1 Address2 City State Zip Country Email PhoneNumber BrideOrGroom TableNo Family RSVPDate RSVPNumber MailTo KnownFrom Invited Notes Finalized
" & rsDsp("Id").Value & "" & rsDsp("RSVPID").Value & "" & rsDsp.Fields.Item("SurName").Value & rsDsp.Fields.Item("FirstName").Value & " " & rsDsp.Fields.Item("LastName").Value & "" & rsDsp("Address1").Value & "" & rsDsp("Address2").Value & "" & rsDsp("City").Value & "" & rsDsp("State").Value & "" & rsDsp("Zip").Value & "" & rsDsp("Country").Value & "" & rsDsp("Email").Value & "" & rsDsp("PhoneNumber").Value & "" & rsDsp("BrideOrGroom").Value & "" & rsDsp("TableNo").Value & "" & rsDsp("Family").Value & "" & rsDsp("RSVPDate").Value & "" & rsDsp("RSVPNumber").Value & "" & rsDsp("MailTo").Value & "" & rsDsp("KnownFrom").Value & "" & rsDsp("Invited").Value & "" & rsDsp("Notes").Value & "" & rsDsp("Finalized").Value & "
" DataConn.Close %>