<% rID = "BUONANOT" Set dbConn = server.createobject("adodb.connection") dbConn.Open("DBQ=" & Server.Mappath("\database\littleitaly.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};") 'dbConn.Open ("DBQ=d:\hosting\a6603792\database\littleitaly.mdb;Driver={Microsoft Access Driver (*.mdb)};") query = "SELECT * FROM restaurants WHERE ID='"+rID+"'" Set dbDat = dbConn.execute(query) While NOT dbDat.EOF name = dbDat("name") logo = dbDat("logo") photo1 = dbDat("photo1") address = dbDat("address") xstreets = dbDat("xstreets") phone = dbDat("phone") cuisine = dbDat("cuisine") price = dbDat("price") hours= dbDat("hours") crcards= dbDat("crcards") seating= dbDat("seating") dress= dbDat("dress") reservations = dbDat("reservations") takeout= dbDat("takeout") delivery= dbDat("delivery") menu = dbDat("menu") panorama = dbDat("panorama") photo1 = dbDat("photo1") photo2 = dbDat("photo2") photo3 = dbDat("photo3") body1 = dbDat("body1") body2 = dbDat("body2") menu = dbDat("menu") coupon = dbDat("coupon") website = dbDat("website") dbDat.MoveNext WEND dbConn.Close() %>
<%=name%>
   RESTAURANTS
<% =address %>
<% =xstreets %>
<% =phone %>
<% =xtraline%>
CUISINE
<% =cuisine %>
PRICES
<% =price %>
HOURS
<% =hours %>
CREDIT CARDS
<% =crcards %>
SEATING
<% =seating %>
DRESS CODE
<% =dress %>
RESERVATIONS
<% =reservations %>
TAKEOUT
<% =takeout %>
DELIVERY
<% =delivery %>

Click here for the Grotta Azzurra menu.
<% =panorama %>
Send a friend to <%=name%>!
Click here!

<%=body1%>

<%=body2%>