עזרה דחוף בבקשה

יש לי את שני הקודים הבאים:
1.

<%
If session("manager") <> "ok" Then
response.redirect ("manager1.asp")
End If
%>
<HTML>
<HEAD>
<TITLE>חיפוש לפי שם משפחה</TITLE>

</HEAD>
<body bgcolor="#18222E" link="9d9d9d" vlink="9d9d9d">

 

<div align="right">
<basefont color="9d9d9d" size="5" face="arial">

חיפוש לפי שם משפחה
 

<%
lname=request.form("nom")
Set con=Server.CreateObject("ADODB.Connection")
con.open "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" & Server.MapPath (".") &"\masadtg.mdb"
sq="select * from table1 where lname='"&lname&"'"
set r=con.execute(sq)

if not r.eof then
REsponse.write ("<center>")
REsponse.write ("<table border='2'>")
REsponse.write (" ")

REsponse.write ("<tr align='center'><td>")
REsponse.write ("שם משתמש")
REsponse.write ("</td><td>")
REsponse.write ("סיסמא")
REsponse.write ("</td><td>")
REsponse.write ("שם פרטי")
REsponse.write ("</td><td>")
REsponse.write ("שם משפחה")
REsponse.write ("</td><td>")
REsponse.write ("תאריך לידה")
REsponse.write ("</td><td>")
REsponse.write ("אימייל")
REsponse.write ("</td><td>")
REsponse.write ("עיר")
REsponse.write ("</td><td>")
REsponse.write ("מין")
REsponse.write ("</td></tr>")
REsponse.write ("")

Do Until r.EOF
REsponse.write ("<tr align='center'><td>")
REsponse.write r("username")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("password")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("fname")&"&nbsp"
REsponse.write ("</td>")
REsponse.write ("<td>")
REsponse.write r("lname")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("birthday")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("email")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("city")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("gender")
REsponse.write ("</td></tr>")
r.movenext
Loop
else
Response.write "אין משתמשים"
end if
r.Close()
con.Close()
Set r=Nothing
Set con=Nothing
%>

</center>
</BODY>
</HTML>

2.
<%
If session("manager") <> "1" Then
response.redirect ("manager1.asp")
End If
%>
<HTML>
<HEAD>
<TITLE>חיפוש לפי שם פרטי</TITLE>

</HEAD>
<body bgcolor="#18222E"link="9d9d9d" vlink="9d9d9d">

 

<div align="right">
<basefont color="9d9d9d" size="5" face="arial">

חיפוש לפי שם פרטי
 

<%
f=Request.Form("prenom")

Set con=Server.CreateObject("ADODB.Connection")
con.open "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" & Server.MapPath (".") &"\masadtg.mdb"
Set r=Server.CreateObject("ADODB.Recordset")

r.Open "SELECT * FROM table1 Where (prenom='"&f&"')" ,con

if r.Eof then
Response.write "אין משתמשים"
else
REsponse.write ("<center>")
REsponse.write ("<table border='2'>")
REsponse.write (" ")

REsponse.write ("<tr align='center'><td>")
REsponse.write ("שם משתמש")
REsponse.write ("</td><td>")
REsponse.write ("סיסמא")
REsponse.write ("</td><td>")
REsponse.write ("שם פרטי")
REsponse.write ("</td><td>")
REsponse.write ("שם משפחה")
REsponse.write ("</td><td>")
REsponse.write ("תאריך לידה")
REsponse.write ("</td><td>")
REsponse.write ("אימייל")
REsponse.write ("</td><td>")
REsponse.write ("עיר")
REsponse.write ("</td><td>")
REsponse.write ("מין")
REsponse.write ("</td></tr>")
REsponse.write ("")

Do Until r.EOF
REsponse.write ("<tr align='center'><td>")
REsponse.write r("username")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("password")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("fname")&"&nbsp"
REsponse.write ("</td>")
REsponse.write ("<td>")
REsponse.write r("lname")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("birthday")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("email")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("city")&"&nbsp"
REsponse.write ("</td><td>")
REsponse.write r("gender")
REsponse.write ("</td></tr>")
r.movenext
Loop

end if
r.Close()
con.Close()
Set r=Nothing
Set con=Nothing
%>

</center>
</BODY>
</HTML>

הראשון הוא לחיפוש לפי שם משפחה והשני לפי שם פרטי
כשאני משתמש בחיפוש זה רושם לי:

You are not authorized to view this page
You do not have permission to view this directory or page using the credentials you supplied.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button to try again with different credentials.
If you believe you should be able to view this directory or page, please contact the Web site administrator by using the e-mail address or phone number listed on the localhost home page.
HTTP 401.3 - Access denied by ACL on resource
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

More information:
Microsoft Support

מישהו יכול לעזור לי? אני חייב לסיים את זה עד מחר><

כלי אשכול	חפש באשכול זה
הצג גירסת הדפסה שלח דף זה ב E-Mail	חפש באשכול זה: חיפוש מתקדם
מצבי תצוגה	דרג אשכול זה
עבור למצב לינארי מצב כלאיים עבור למצב משורשר	דרג אשכול זה:

הדף נוצר ב 0.04 שניות עם 10 שאילתות
צור קשר - Fresh - למעלה