<% Option Explicit %> tailin_version2 <% Session("search") = Request ("search") If Session("search")="" Then Response.Redirect "error.asp" End If %>
<% If Request ("search")<> "" Then Dim ObjConn, ObjRS Set ObjRS= Server.CreateObject("ADODB.Recordset") Set ObjConn= Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString="Provider=Microsoft.jet.OLEDB.4.0;Data Source= e:\html\domains\tailin.net\wwwroot\tailin.mdb" ObjConn.Open Set ObjRS=ObjConn.Execute ("Select * From search Where Itemname LIKE'%' & '" & Request("search") & "%'" ) If not ObjRS.EOF Then While Not ObjRS.EOF %> <% ObjRS.Movenext Wend Else %> <% End if ObjConn.Close Set ObjRS=nothing Set ObjConn=nothing End if %>
Search Result(s) for "<%=UCase(Request ("search"))%>"
<%=ObjRS(2)%>

    <%=ObjRS(1)%>

.................................................................................................
<%Response.Write "No record found!"%>