الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة غريبة تظهر لي عند عرض الصفحة

مغلق
بدأه ENG.CAESAR في 5 نوفمبر 2004 · 4 رد · 486 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم تظهر لي هذه الرسالة

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/iisHelp/common/500-100.asp, line 239

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/ahmad/index.asp, line 8

Server.MapPath("/ahmad/asp.mdb")

--------------------------------^

وهذا هو الكود المستخدم

<%@codePage=1256%>

<html>

<%
Set cn = CreateObject("ADODB.Connection")
	cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="&_
	Server.MapPath("/ahmad/asp.mdb")
	sql="Select * from ahmad"
Set rs=CreateObject("ADODB.recordset")
	rs.open sql, cn, 3, 3
	rs.Movefirst
   while not rs.eof
   response.write rs("name")&"<br>"
  rs.movenext
  end
  %>
  
<head>
<title></title>
</head>

<body>

</body>

</html>
#2

السلام عليكم

في الـ DSN-Less Connection يكون الكود عادةً مثل هذا:

حيث DBName هي اسم قاعدة البيانات، و Path هي الباث لهذه القاعدة

"Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Path & DBName & ";"

و بما أنك استخدمت Server.MapPath و الخطأ يتمثل في عدم إقفال الكود بـ ; فالصحيح هو:

"driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("/ahmad/asp.mdb") & ";"

لي وجهة نظهر لعدم الوقوع في مثل هكذا أخطاء، هي الفصل، مثلاً:

sDSN = "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("/ahmad/asp.mdb") & ";"

ثم

cn.Open sDSN

Mohamad Al-Karbi

www.mkarbi.me

#3

اخوي محمد غلبتك مع كثير

ياليت اخوي تكتب الكود بالكامل من جديد بعد التعديل واكون لك شاكر و ممنون

#4 
<%@codePage=1256%>

<html>

<%
sDSN = "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("/ahmad/asp.mdb") & ";"

Set cn = CreateObject("ADODB.Connection")
cn.Open sDSN

sql="Select * from ahmad"

Set rs=CreateObject("ADODB.recordset")
rs.open sql, cn, 3, 3
rs.Movefirst
  while not rs.eof
  response.write rs("name")&"<br>"
  rs.movenext
end
 %>

<head>
<title></title>
</head>

<body>

</body>

</html>

Mohamad Al-Karbi

www.mkarbi.me

#5

بجرب الكود وإن شاء الله ينفع واشكرك مره ثانية

هذا الموضوع مغلق.

مواضيع مشابهة