% @LANGUAGE = VBScript %> <% Option Explicit %> <% if InStr(Request.ServerVariables("HTTP_USER_AGENT"), "iPhone") Or InStr(Request.ServerVariables("HTTP_USER_AGENT"), "iPod") then Response.Redirect "http://m.originalrestaurants.com?city=11" end if Dim strPageName, strBannerImage, objConn, objRS, strSQL strPageName = "St. Louis Originals - Home Page" strBannerImage = "index" %>
NEXT DISCOUNTED WEB CERTIFICATE SALE - 4/16
SAINT LOUIS ORIGINALS FAN OF THE MONTH!"Like" us on Facebook for your chance to win a $25 Saint Louis Originals Gift Card! We'll be selecting one Facebook Fan each month!
|
REWARD WEDNESDAYS HAPPY HOUR DOUBLE POINTS RECENT CUSTOMER FEEDBACK AT STL ORIGINALS<%
Dim mid, id, url, xmlDoc, entries, entry, entryDate, entryQuestion, entryAnswer, entryLocation
url = "http://www.powercard.com/biz/surveys/feed.asp?id=11" 'USE id for city and mid for merchant
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(url)
if xmlDoc.parseError.errorcode <> 0 then
Response.Write("XML Error... FEATURED RECIPE<%Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("strPCConn") strSQL = "SELECT recipe_date, recipe_instructions, recipe_name, recipe_photo, merchant_name FROM tblRecipes INNER JOIN tblMerchants ON mid = recipe_mid WHERE city_id = '11' AND recipe_live = 1 AND recipe_date <='" & Date() & "' ORDER BY recipe_date DESC " Set objRS = objConn.Execute (strSQL) If Not objRS.EOF Then Response.Write "
Posted: " & Replace(objRS("recipe_date"),"/200","/0") & " " & vbcrlf Response.Write "" & Left(objRS("recipe_instructions"),150) & "...more info " objRS.MoveNext End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>FEATURED CHEF<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("strPCConn") strSQL = "SELECT chefs_name, chefs_date, chefs_bio, chefs_philosophy, chefs_photo, merchant_name FROM tblChefs INNER JOIN tblMerchants ON mid = chefs_mid WHERE city_id = '11' AND chefs_live = 1 AND chefs_date <='" & Date() & "' ORDER BY chefs_date DESC " Set objRS = objConn.Execute (strSQL) If Not objRS.EOF Then Response.Write "
Posted: " & Replace(objRS("chefs_date"),"/2008","/08") & " " & vbcrlf Response.Write "" & Left(objRS("chefs_bio"),150) & "...more info " objRS.MoveNext End If objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>
|