<%@Language=VBScript%>
<%
Dim searchStr, MyConn, RS, i
searchStr = Request.QueryString("strSearch")
searchaccount = Request.Form("accountSearch")
searchaddress = Request.Form ("addressSearch")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={SQL Server};" & _
"Server=orservi;" & _
"Database=ubocust;" & _
"Uid=pptaxconnect;" & _
"Pwd=oakridge"
SQL = "SELECT * FROM ViewUBOMonthly WHERE alfnam LIKE '%" & searchStr & "%' ORDER BY alfnam"
Response.Write " " & SQL & ""
Set RS = MyConn.Execute(SQL)
If searchStr <> "" Then
If RS.BOF AND RS.EOF Then
Response.Write " No Records Found."
Else
While Not RS.EOF
Response.Write "
"
RS.MoveNext
WEND
End If
Else
Response.Write "No Search String Entered."
End IF
RS.Close
MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
%>