Home

Dim dToday, dMinTime Dim sName, sEmailAddress, sPhoneNumber, sNumberOfPeople, idReservationSeating, sComment iNumberOfPeople = 1 idReservationSeating = 1 Dim IdReservation If Request.QueryString("r") <> "" Then Dim r r = CStr(Request.QueryString("r")) If Len(r) > 5 Then IdReservation = Left(r, Len(r) - 4) End If End If If Not IsEmpty(IdReservation) And IsNumeric(IdReservation) Then Dim dbAccess Set dbAccess = New DHDatabaseAccess Dim cmd, rst, dReservationTime Set cmd = CreateADOStoredProcCommand() cmd.CommandText = "qh_Reservation_GetReservations" cmd.Parameters.Append cmd.CreateParameter("@IdReservation", adInteger, adParamInput, , IdReservation) Set rst = dbAccess.GetData(cmd) If Not rst.Eof Then dReservationTime = CDate(rst("ReservationTime")) sName = CStr(rst("Name")) sEmailAddress = CStr(rst("EmailAddress")) sPhoneNumber = CStr(rst("PhoneNumber")) iNumberOfPeople = cLng(rst("NumOfPeople")) idReservationSeating = cLng(rst("IdReservationSeating")) If Not ISNull(rst("Comment")) Then sComment = Server.HTMLEncode(CStr(rst("Comment"))) End If End If rst.Close() Set rst = Nothing Set dbAccess = Nothing dToday = dReservationTime dMinTime = dReservationTime Else dToday = DateAdd("n", 140, Now()) dMinTime = DateAdd("n", 120, Now()) End If 'sName = "Ming Li" 'sEmailAddress = "ming@ming.com" 'sPhoneNumber = "123-123-1231" Home

	Online Reservations

Name	*
Email Address	*
Contact Phone Number	*
Number of People
Time
Date
Preferred Seating
Comment	<%=sComment%>

Please make reservations at least two hours ahead of time.