החיפוש כרגע עובד.
אבל כשאני נכנס לדף של העריכה עדיין מוצג לי דף ריק.
ויש לי עוד דף של חיפוש לפי שם ושם משפחה:
קוד:
<%
if session ("adminCheck")<>"true" then
response.write "כניסה למורשים בלבד!"
else%>
<html>
<head>
<title> דף הניהול </title>
</head>
<body dir="rtl">
<h1> דף הניהול </h1>
<h2> חיפוש לפי שם פרטי </h2>
<body dir="rtl">
<%
fname=Request.Form("firstname")
sname=Request.Form("familyname")
sq="select*from personal_data where (fname='"&firstname&"' and sname='"&familyname&"')"
path=Server.mappath("data/db1.mdb")
set con= Server.createobject("ADODB.Connection")
con.mode=3
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" &path
set R=con.execute(sq)
Response.write "<body dir=rtl>"
Response.write "<br>הצגת הנרשמים"
Response.write "<table align=center border=1> <tr>"
Response.write "<td>תעודת זהות</td>"
Response.write "<td> שם משפחה </td>"
Response.write "<td> שם פרטי </td>"
Response.write "</tr>"
do until R.eof
Response.write "<tr>"
Response.write "<td> " & R.fields("id") & "</td>"
Response.write "<td> " & R.fields("fname") & "</td>"
Response.write "<td> " & R.fields("sname") & "</td>"
Response.write "</tr>"
R.movenext
loop
Response.write "</table>"
R.close
set R=nothing
%>
</body>
</html>
שבו אני מקבל שגיאה:
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'