|
|||||||||
Our Five Convenient LocationsClick any of the locations below to see a map Holy Redeemer Medical Office Building, 10125 Verree Road, Suite 106 » Mallard Creek Village, Suite 105 » 213 Haddon Avenue » Pavilions of Voorhees, Suite 207 » |
<%
Dim db_dir, db_path
Dim connectstr
Dim sOfficeName, sMapHTML
Dim iOfficeID
iOfficeID = Trim(Request.QueryString("l"))
If iOfficeID = "" Then
iOfficeID = "1"
End If
Select Case iOfficeID
Case "1"
sMapHTML = "meadowbrook.html"
Case "2"
sMapHTML = "northeast.html"
Case "3"
sMapHTML = "richboro.html"
Case "4"
sMapHTML = "haddonfield.html"
Case "5"
sMapHTML = "voorhees.html"
Case Else
sMapHTML = "meadowbrook.html"
End Select
db_dir = Server.MapPath("access_db")
db_path = db_dir & "\aac.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db_path & ";"
'connstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path
Set conPubs = Server.CreateObject("ADODB.Connection")
conPubs.Open connstr
'sql = "SELECT OfficeHours.*, Offices.* FROM OfficeHours JOIN Offices ON OfficeHours.OfficeID = Offices.OfficeID WHERE OfficeID = " & iOfficeID & " ORDER BY DayNum"
sql = "SELECT * FROM OfficeHours WHERE OfficeID = " & iOfficeID & " ORDER BY DayNumber"
set rsOffices = conPubs.execute(sql)
%>
Office Hours
|
||||||||
