<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '5.21.07 PDO add spaces to querystring text if _ in string dim qstxt qstxt = replace(request.QueryString(), "_", " " ) %> (877) 234-0635: PeopleHelpingAlcoholics.Com: <%= qstxt %> <% '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 %> <% '5.23.07 pdo: only connect for querystring if request.QueryString()<>"" then qry = "SELECT [pha-ads].* FROM [pha-ads]" 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 ' pdo 5.21.07 parse substrings outa cats via querystrings (!!!replace _ with spaces!!!) do while not oRS.eof if instr(lcase(oRS.fields("cats")), lcase(qstxt)) then %> <% end if oRS.movenext loop oRS.close Set oRs = nothing Set oConn = nothing end if %>
*** Featured Drug Rehab Center ***
  Surf City, Huntington Beach; OC's best drug rehab and drug detox residential treatment center located in Huntington Beach, Ca- 714-476-9699. We treat alcohol addiction and alcoholics in our residential drug rehab treatment facility.
*** <%= oRS.fields("company-name") %> ***
" target="_top">visit website  <%= oRS.fields("company-descrip") %> " target="_top"><%= oRS.fields("go-URL") %>
<% '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 %>