ASP.NET

<%

Dim Sqlbooks
dim checkkeyword, checkarticle
checkarticle="False"
checkkeyword="False"

Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open("BookDB")

Sqlbooks = "SELECT * FROM Booklist"
Sqlkeyword="SELECT * FROM Keyword11"
sqlarticle="SELECT * FROM Article"

If Request.Form("TypeSearch") = "Accno" Then
	Sqlbooks = Sqlbooks & " WHERE Acc_No LIKE '%" & Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Callno" Then	
	Sqlbooks = Sqlbooks & " WHERE Call_No LIKE '%" & _
	    Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Author" Then
	Sqlbooks = Sqlbooks & " WHERE Author LIKE '%" & _
	    Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Title" Then
	Sqlbooks = Sqlbooks & " WHERE Title LIKE '%" & _
	    Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "ISBN" Then
	Sqlbooks = Sqlbooks & " WHERE ISBN LIKE '%" & _
	    Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Publisher" Then
	Sqlbooks = Sqlbooks & " WHERE Publisher LIKE '%" & Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Binding" Then
	Sqlbooks = Sqlbooks & " WHERE Binding LIKE '%" & Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Subject" Then
	Sqlbooks = Sqlbooks & " WHERE Subject LIKE '%" & Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Keyword1" Then
	checkkeyword="True"
	Sqlkeyword = Sqlkeyword & " WHERE Keyword1 LIKE '%" & Request.Form("DaInBox") & "%'"
End If

If Request.Form("TypeSearch") = "Article" Then
	checkarticle="True"
	Sqlarticle = Sqlarticle & " WHERE Article LIKE '%" & Request.Form("DaInBox") & "%'"
End If

Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset")

If checkkeyword="True" then
rsGlobalWeb.Open Sqlkeyword, dbGlobalWeb, 3
 

<%End If
	  End If
End If