<% Dim MyConn, RS, i accessdb="data/database.mdb" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" myDSN=myDSN & "DBQ=" & server.mappath(accessdb) dim conntemp, rstemp, temp set conntemp=server.createobject("ADODB.connection") conntemp.open myDSN mySQL1 = "Select * From Education order By Topic" 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
Education Recources
 
<% ' Now lets grab all the records do while not rstemp.eof %> <% for i = 1 to 1 temp = thisvalue thisvalue=rstemp(i) If isnull(thisvalue) or thisvalue="" then thisvalue=" " end if%> <%if thisvalue = "Clinicians" or thisvalue = "Researchers" or thisvalue = "Students" or thisvalue = "Educators" then%> <%else if LCase(temp) = LCase(thisvalue) then else %> <%end if end if%> <% next %> <%rstemp.movenext loop%>
<%=thisvalue%>
<% ' Now lets grab all the records rstemp.movefirst do while not rstemp.eof %> <% for i = 1 to 1 temp = thisvalue thisvalue=rstemp(i) If isnull(thisvalue) then thisvalue=" " end if%> <%if not LCase(temp) = LCase(thisvalue) then if (LCase(thisvalue) = "clinicians" or LCase(thisvalue) = "researchers" or LCase(thisvalue) = "students" or LCase(thisvalue) = "educators") then%> <%end if end if%> <% next %> <%rstemp.movenext loop%>
<%=thisvalue%>
<% rstemp.close set rstemp=nothing end if%>

Site Map

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

Please click here
<%end sub%>