<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim strView Dim strSQL Dim strLabel Dim objConn Dim objRec Dim strPhone Dim strFax Dim strMap Dim strGroupName strView = Request.QueryString("v") strGroupName = Request.QueryString("g") Select Case strView Case "1" 'USA strSQL = "Select * From LocationInfo Where Country='USA' Order by LocationName ASC" strLabel = "images/labels/usalocations.png" pageTitle = "El Taco Tote Mexican Grill Restaurant | USA Locations" pageKeywords = "El Taco Tote, Mexican Restaurant, advertisements, grill, Mexican, tacos, locations, Albuquerque, El Paso, Houston, Laredo, San Antonio ,Texas, Mesa, Tucson, Phoenix ,Arizona, usa" pageDescription = "El Taco Tote Mexican Grill Restaurant are located throughout USA, Albuquerque, El Paso, Houston, Laredo, San Antonio Texas, and Mesa, Tucson, Phoenix Arizona." Case "2" 'MEX strSQL = "Select * From LocationInfo Where Country='mex' ORDER BY LocationName ASC" strLabel = "images/labels/mexicolocations.png" pageTitle = "El Taco Tote Mexican Grill Restaurant | Mexico Locations" pageKeywords = " El Taco Tote, Mexican Restaurant, advertisements, grill, Mexican, tacos, locations, Ciudad Juarez, Nuevo Laredo, Torreon, Mexico." pageDescription = "El Taco Tote Mexican Grill Restaurant are located throughout Mexico, Ciudad Juarez, Nuevo Laredo, Torreon, Mexico." Case "3" 'Online strSQL = "Select * From LocationInfo Where Country='USA' and Dinner='1' Order by LocationName ASC" strLabel = "images/labels/onlinelocations.png" pageTitle = "El Taco Tote Mexican Grill Restaurant | Order Online" pageKeywords = "El Taco Tote, Mexican, Restaurants, order online, breakfast, lunch, dinner, specials, tacos, food" pageDescription = "Order breakfast, lunch & dinner online from El Taco Tote Mexican Grill Restaurant." Case "4" 'City strSQL = "Select * From LocationInfo Where GroupCity ='" & strGroupName & "'" strLabel = "images/labels/alllocations.png" 'reset below pageTitle = "El Taco Tote Mexican Grill Restaurant | " & strGroupName & " Locations" pageKeywords = "El Taco Tote, Mexican Restaurant, advertisements, grill, Mexican, tacos, locations, Mexico , usa, " & strGroupName pageDescription = "El Taco Tote Mexican Grill Restaurant are located throughout usa and mexico, view our " & strGroupName & " locations here." Case Else strSQL = "Select * From LocationInfo Order by LocationName ASC" strLabel = "images/labels/alllocations.png" End Select Set objConn = Server.CreateObject ("ADODB.Connection") Set objRec = Server.CreateObject ("ADODB.RecordSet") objConn.Open strDBconnect objRec.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText If strView = "4" Then If not objRec.EOF Then strLabel = objRec("Label") End if End if %> <%=pageTitle%> <%=googleVerCode%>
Bookmark and Share



" End if objRec.MoveNext Loop %> <% 'Response.Write "
Locations  
" Else %>
<% 'Response.Write "" Do While Not objRec.EOF strPhone = objRec("Phone") strFax = objRec("Fax") strMap = objRec("Map") if objRec("Country") <> "USA" then if strPhone <> "" then strPhone = "+52 " & FormatPhoneNumber(strPhone) Else strPhone = "None Available" End if if strFax <> "" then strFax = "+52 " & FormatPhoneNumber(strFax) Else strFax = "None Available" End if if strMap <> "" then strMap = objRec("Map") Else strMap = "JavaScript:void(0);" End if Else if strPhone <> "" then strPhone = FormatPhoneNumber(strPhone) Else strPhone = "None Available" End if if strFax <> "" then strFax = FormatPhoneNumber(strFax) Else strFax = "None Available" End if if strMap <> "" then strMap = objRec("Map") Else strMap = "JavaScript:void(0);" End if End if If strView <> "4" Then %>
" width="300" height="50" alt="<%=objRec("City")%>" />  
<% If objRec("Breakfast") = "1" Then %> <% End if%> <% If objRec("Catering") = "1" Then %> <% End if%> <% if objRec("Country") = "USA" then %> <% End if%> <% If objRec("Coupons") = "1" Then %> <% End if%>
<%=objRec("Address")%> ·  <%=objRec("City")%>, <%=objRec("State")%>  <%=objRec("Zip")%>
Ph: <%=strPhone%> · Fax: <%=strFax%>
Breakfast is Available
Catering is Available
 
&to-map=<%=objRec("GoogleTo")%>&fax=<%=strFax%>&phone=<%=strPhone%>" target="_self">Google Maps
 
 
" title="Coupons" target="_self">Coupons
Hours of Operation
<%=objRec("Hours")%>
<% Select Case objRec("Online") Case "1" If objRec("Breakfast")="1" Then %>
" target="_self">Order Breakfast
" target="_self">View Breakfast Menu
" target="_self">Order Lunch Dinner Menu
" target="_self">View Lunch Dinner Menu
<% Else %>
" target="_self">Order Lunch Dinner Menu
" target="_self">View Lunch Dinner Menu
<% End if Case Else %>
 
<%End Select %>
<% 'Response.Write "
" & objRec("LocationName") & "" & objRec("Address") & "
" & objRec("City") & ", " & objRec("State") & " " & objRec("Zip") &"
Ph: " & strPhone & " • Fax: "& strFax & "

Click to View Map
"& objRec("OrderOnline") & "

   
<% If objRec("Breakfast") = "1" Then %> <% End if%> <% If objRec("Catering") = "1" Then %> <% End if%> <% if objRec("Country") = "USA" then %> <% End if%> <% If objRec("Coupons") = "1" Then %> <% End if%>
<%=objRec("Address")%> ·  <%=objRec("City")%>, <%=objRec("State")%>  <%=objRec("Zip")%>
Ph: <%=strPhone%> · Fax: <%=strFax%>
Breakfast is Available
Catering is Available
 
&to-map=<%=objRec("GoogleTo")%>&fax=<%=strFax%>&phone=<%=strPhone%>" target="_self">Google Maps
 
 
" title="Coupons" target="_self">Coupons
Hours of Operation
<%=objRec("Hours")%>
<% Select Case objRec("Online") Case "1" If objRec("Breakfast")="1" Then %>
" target="_self">Order Breakfast
" target="_self">View Breakfast Menu
" target="_self">Order Lunch Dinner Menu
" target="_self">View Lunch Dinner Menu
<% Else %>
" target="_self">Order Lunch Dinner Menu
" target="_self">View Lunch Dinner Menu
<% End if Case Else %>
 
<%End Select %>
<% 'Response.Write "
" & objRec("Address") & "
" & objRec("City") & ", " & objRec("State") & " " & objRec("Zip") &"
Ph: " & strPhone & " • Fax: "& strFax & "

Click to View Map
"& objRec("OrderOnline") & "

" objRec.Close Set objRec = Nothing objConn.Close Set objConn = Nothing %>