<% 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 "" rsDsp.MoveNext Wend Response.Write "
Id Name Count
" & rsDsp("Id").Value & "" & rsDsp.Fields.Item("SurName").Value & rsDsp.Fields.Item("FirstName").Value & " " & rsDsp.Fields.Item("LastName").Value & "" & rsDsp("rsvpcount").Value & "
" DataConn.Close %>