<% Response.Buffer = True on error resume next Response.ContentType = "text/vnd.wap.wml" Response.Write "" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFileTextStream = objFSO.OpenTextFile(Server.MapPath("/database/agents.txt")) Searchstring = Trim(Request("Namesrch")) %>

<% Do While objFileTextStream.AtEndOfStream <> TRUE strstart = objFileTextStream.ReadLine if strstart = "TRUE" then strLine = objFileTextStream.ReadLine strLine = Split(strLine, "^") count = 1 For i = 0 To 3 step 1 IF Instr(1,UCase(strLine(i)),Searchstring,1) AND count < 2 then %> <%=strLine(0)%>-<%=strLine(1)%>
<%=strLine(3)%>
Bus: <%=strLine(6)%>
Res: <%=strLine(7)%>
Pgr:<%=strLine(8)%> <% count = count + 1 foundbol = "TRUE" End if Next end if Loop objFileTextStream.Close Set objFSO = Nothing If foundbol <> "TRUE" Then Response.Write ("No Results") End if %>
Back