<%@Language="VBScript"%> <% Dim oRS, oConn Set oRS = Server.CreateObject("ADODB.Recordset") Set oConn = Server.CreateObject("ADODB.Connection") oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("employees.mdb") oConn.Open oRS.Open "SELECT * FROM Employees", oConn, 2, 3 oRS.Find "NameLast = '" & UCase(Request.QueryString("strSearch")) & "'" If oRS.EOF Then Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Position=Not+Found" Else Response.Write "NameFirst=" & Server.URLEncode(oRS("NameFirst")) & "&NameLast=" & Server.URLEncode(oRS("NameLast")) & "&Position=" & Server.URLEncode(oRS("Position")) End If oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>