% Dim sql_search, con search_field = Request.form("search_field") search_text = request.form("search_text") sql_search = "SELECT * FROM calllog WHERE " & search_field & " LIKE '%" & search_text & "%' ORDER BY ID DESC" Const adCmdTableDirect = &H0200 Const adLockReadOnly = 1 Const adOpenStatic = 1 Const adUseClient = 3 data_source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/Ticker.mdb") '## MS Access 2000 Set con = CreateObject("ADODB.Recordset") con.CursorLocation = adUseClient con.Open sql_search, data_source, adOpenDynamic, adLockReadOnly, adCmdTableDirect %>
|
|||||||||||||||
|
No results found... " else while Not con.EOF response.write "
" con.MoveNext wend con.close end if %> |