<% Response.buffer = true rsvpid = (request.querystring("rsvpid")) Dim objConn 'Declare Variables Dim connStr Set objConn = Server.CreateObject("ADODB.Connection") 'Set objConn as an Object connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Webspace\dmoadabHC\dmoadabweb\moadab.com\www\DB\guests.mdb; " objConn.Open(connStr) 'Use the object's method passing it a variable set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = objConn Recordset1.Source = "SELECT * FROM Guestlist where RSVPID='" & RSVPID & "'" Recordset1.Open() %> <%If Not Recordset1.EOF Then%>
Hello <%=(Recordset1.Fields.Item("SurName").Value)%><%=(Recordset1.Fields.Item("LastName").Value)%>!
Please verify the below information and click on submit to finalize your RSVP.
<%=(Recordset1.Fields.Item("SurName").Value)%> <%=(Recordset1.Fields.Item("FirstName").Value)%> <%=(Recordset1.Fields.Item("LastName").Value)%>
<%=(Recordset1.Fields.Item("Address1").Value)%>
<%=(Recordset1.Fields.Item("Address2").Value)%>
<%=(Recordset1.Fields.Item("City").Value)%>,  <%=(Recordset1.Fields.Item("State").Value)%>. <%=(Recordset1.Fields.Item("Zip").Value)%>  <%=(Recordset1.Fields.Item("Country").Value)%>
Please Enter Your E-mail Address:
"> "> "> "> "> "> "> "> "> "> "> "> "> "> "> ">
<% else response.write "
We were unable to locate your record.
" response.write "Please verify your RSVP ID and try again.
" %><%=rsvpid%><%end if %>