|
|
|
Multiple Submit Form
<%
searchword = Request.Form("arg")
%>
<%
Dim objConn
Dim objRec
FnameSQL = "Select au_id,au_lname,au_fname,city,state from authors where au_fname like '"&searchword&"%';"
LnameSQL = "Select au_id,au_lname,au_fname,city,state from authors where au_lname like '"&searchword&"%';"
CitySQL = "Select au_id,au_lname,au_fname,city,state from authors where city like '"&searchword&"%';"
set objConn = Server.CreateObject("ADODB.Connection")
set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
%>
<%
If Request.Form("FName") <> "" Then
objRec.Open FnameSQL,objConn
%>
Query results using firstname as a search string:
<%
While Not objRec.EOF
Response.Write ""
Response.Write "" &"| "& objRec("au_id") & " | " & objRec("au_fname") & " | " & objRec("au_lname") &" | " & objRec("City") & " | " & objRec("state") & "
"
Response.Write " | "
objRec.MoveNext
Wend
ElseIf Request.Form("LName") <> "" Then
objRec.Open LnameSQL,objConn
%>
Query results using Lastname as a search string:
<%
While Not objRec.EOF
Response.Write ""
Response.Write "" &"| "& objRec("au_id") & " | " & objRec("au_fname") & " | " & objRec("au_lname") &" | " & objRec("City") & " | " & objRec("state") & "
"
Response.Write " | "
objRec.MoveNext
Wend
ElseIf Request.Form("City") <> "" Then
objRec.Open CitySQL,objConn
%>
Query results using City as a search string:
<%
While Not objRec.EOF
Response.Write ""
Response.Write "" &"| "& objRec("au_id") & " | " & objRec("au_fname") & " | " & objRec("au_lname") &" | " & objRec("City") & " | " & objRec("state") & "
"
Response.Write " | "
objRec.MoveNext
Wend
End If
'objRec.Close
Set objRec = Nothing
%>
|
