% 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") mySQL1 = "Select * From Education where Topic = '" & topic & "' AND SubTopic1 like '%" & sub1 & "%' order By SubTopic2" set rstemp=conntemp.execute(mySQL1) if rstemp.eof then call show_error() else howmanyfields=rstemp.fields.count -1 %>
|
|
No message available. |