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
|
|
Please make reservations at
least two hours ahead of time. |
|
Copyright @ 2003
Tomodachi Sushi Bistro, Inc. All rights reserved.
|