בעיה בעידכון ועריכה ASP - הוסטס

typhoonil · 05-05-08, 15:39

החיפוש כרגע עובד.
אבל כשאני נכנס לדף של העריכה עדיין מוצג לי דף ריק.

ויש לי עוד דף של חיפוש לפי שם ושם משפחה:

קוד:

  <&#37;
 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'

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


	ההרשמה לפורום נפתחה - אפשרות רישום לכל אימייל (דומיינים פרטיים, gmail, הוטמייל..)!

חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים)