<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Expires=-1
on error resume next
'5.8.07: Today the ASP website (PeopleHelpingAlcoholics.Com) went public. Search & results still need tweeking.
'4.21.07 PDO: this file is now an active server page (ASP classic 1.1) updates need be added to table pha-ads in Access Database pha and then updated on server in /access_db/pha.mdb
'robot friendly guidelines: title <= 60 characters; meta keywords <= 874 ; meta description <= 150
'note 4 google3%>
(877) 234-0635 for drug rehab directory assistance: PeopleHelpingAlcoholics.Com Drug rehab graphic banners
<% 'patrixweb.net: engage database header output
qry = "SELECT [PHAl-Header].* FROM [PHAl-Header]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("access_db") & "/pha.mdb"
Set oRS = oConn.Execute(qry)
oRS.movefirst
response.write oRs.Fields("PHAl-Head")
oRS.close
Set oRs = nothing
Set oConn = nothing
%>
<%
qry = "SELECT [pha-ads].* FROM [pha-ads] WHERE [pha-ads].[rankNum]>0 ORDER BY [pha-ads].[rankNum]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("access_db") & "/pha.mdb"
Set oRS = oConn.Execute(qry)
while not oRS.EOF
response.write "
"
if not oRS.EOF then
oRS.movenext
response.write "
"
end if
response.write "
"
oRS.movenext
wend
oRS.close
Set oRs = nothing
Set oConn = nothing
%>
Drug Rehab Centers, addiction treatment information, rehabilitation and intervention counseling here at
People Helping Addicts
<% 'database connection at server level
qry = "SELECT [PHAl-Footer].* FROM [PHAl-Footer]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("access_db") & "/pha.mdb"
Set oRS = oConn.Execute(qry)
oRS.movefirst
response.write oRs.Fields("PHAl-foot")
oRS.close
Set oRs = nothing
Set oConn = nothing
%>
