<%

Dim SqlJunk, srchval

srchval = Replace(Request.Form("DaInBox"), "'", "''")

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

SqlJunk = "SELECT * FROM Employees"

If Request.Form("TypeSearch") = "FirstName" Then
	SqlJunk = SqlJunk & " WHERE FirstName LIKE '%" , & srchval & "%'" 
End If

If Request.Form("TypeSearch") = "LastName" Then	
	SqlJunk = SqlJunk & " WHERE LastName LIKE '%", & srchval & "%'"
End If