%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_express_STRING Recordset1.Source = "SELECT * FROM dbo.Brestaurants" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_express_STRING Recordset2.Source = "SELECT Brestaurant, Btypeoffood FROM dbo.Brestaurants" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
![]() |
||
|
Alligator
Grille, Bistro
Mezzaluna, Black
Marlin Bayside Grill, Eastern, Frankie Bones, American Giuseppi's, Hilton Head Brewing Company, American Island
Bistro, Kingfisher, One
Hot Mamma's, Smokehouse, Tapas, T.J.
Take and Bake, Wild
Wing Cafe WiseGuys, Italian/American Yummy
House, Oriental/Thai |
HOW TO ORDER FROM EXPRESS RESTAURANT DELIVERY:
Call EXPRESS RESTAURANT DELIVERY at 785-7155. Give us your phone number, name, address and the meal(s) you'd like delivered. Sit back and relax! Typical delivery time is 45 to 60 minutes. Delivery time does vary due to restaurant preparation time and Island traffic conditions. Please have payment ready for the mobile wait staff in the form of VISA,MASTERCARD,DISCOVER, AMERICAN EXPRESS, OR CASH. NO PERSONAL CHECKS. HOURS OF SERVICE: 5:00 PM TO 9:45 PM, Seven days a week. Call ahead to verify times. DELIVERY CHARGE: $5.50 MINIMUM DELIVERY CHARGE or 15% on orders above $35. NORTH
OF PALMETTO DUNES, SHELTER COVE: $1 additional chage * $10
food minimum is all that you need.
|
|
|
|
||