<% Dim MyConn, RS, i accessdb="data/database.mdb" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" myDSN=myDSN & "DBQ=" & server.mappath(accessdb) dim conntemp, rstemp, temp, topic set conntemp=server.createobject("ADODB.connection") conntemp.open myDSN temp="nothing" topic = Request.QueryString("topic") sub1 = Request.QueryString("sub1") sub2 = Request.QueryString("sub2") mySQL1 = "Select SubTopic2,Comments,URL From Education where Topic ='" & topic & "' AND SubTopic1 like '%" & sub1 & "%' AND SubTopic2 like '%" & sub2 & "%'" set rstemp=conntemp.execute(mySQL1) if rstemp.eof then call show_error() else howmanyfields=rstemp.fields.count -1 %> ePodiatry
ePodiatry

ePodiatry Home
Podiatry Newsletter
Educational Resources
Directory
News
Conferences
Podiatry Books  
Foot Problems  

 

 

 

 

 

Web site designers
WebGenius

<%do while not rstemp.eof %> <%rstemp.movenext loop%>
<%=rstemp(0)%>
 
<% thisvalue = rstemp(1) %> Comments: <%=thisvalue%>
<% thisvalue = rstemp(2) %> URL: <%=thisvalue%>
<% rstemp.close set rstemp=nothing end if%>

Site Map

<%sub show_error()%>
No message available.

Please click here
<%end sub%>