<% 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 %> ISB Call Tracker View Calls
Search Calls | All Unresolved Calls | List All Calls | Statistics |Home
<% if con.EOF then response.write "




No results found...





" else while Not con.EOF response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" & con("clock")& "delete|update
Problem ID: " & con("ID") & "
ISB Department Title: " & con("CLOrgTitle") & "
Caller's Name: " & con("CLFullName") & "
Caller's Email: " & con("CLEmail") & "
Caller's Department: " & con("CLDept") & "
Caller's Phone: " & con("CLPhone") & "
Problem Category: " & con("CLProblemCat") & "
Problem Other: " & con("CLProblemOth") & "
Problem Description:
" & con("CLProbDesc") & "
Problem Resolution:
" & con("CLProbResolve") & "
Resolution Updated " & con("CLTimeResolved") & "

" con.MoveNext wend con.close end if %>

Submit Call Search Calls Export Calls Home/Submit Call