解决掉!

[SEASKYLONG]

<%
Dim oRS, oConn
Set oRS = server.CreateObject("ADODB.Recordeset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString "Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath("employess.mdb")
oRS.Open "SELECT * FROM employess",oConn,2,3
oRS.Find "NameLast = '"&UCase(Request.QueryString("strsearch"))&"'"
if oRS.EOF Then
Response.Write "NameLast=Not+Found&NameFrist=Not.Found&Position=Not.Found"
Else
Response.Write
&"&NameFrist=" & Server.URLEncode(oRS("NameLast"))
&"&NameLast=" & Server.URLEncode(oRS("NameLast"))
&"&Position=" & Server.URLEncode(oRS("Position"))
End if
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>


提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/employess.asp，行12

& "&NameFrist=" & Server.URLEncode(oRS("NameLast"))
^

[snowcloud2002]

&"&NameFrist=" & Server.URLEncode(oRS("NameLast"))
多了个&