من يقول ماهي المشكلة في هذا الكود

اولا اتمنى ان تستخدم

 كي تكتب الاكواد بشكل صحيح ، ثانياً هذا هو الحل
[code]

<%
dim connectionstring
Set connectionstring=Server.CreateObject("ADODB.Connection")
connectionstring.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("project.mdb") & ";"
Set rs=Server.CreateObject("ADODB.Recordset")
%>
<%
selectsql="select * from tech_news"
set rs =connectionstring.execute(selectsql)
response.write rs("subject")
response.write rs("add_dat")
response.write rs("body")
%>

ثالثاً اخي الكريم لو أجهدت نفسك قليلا لوجدت ان هذا الموضوع مكرر وواحد منها مثبت في أعلى الموقع

http://www.arabteam2000.com/vb/showthread....?threadid=11515

رابعاًً أهلا وسهلا بك معنا :) (f)

طريقتك لكتابة الكود لم أعرفها كيف تفعلها هذا أولاً

ثانياً لقد نسخت الكود الذي صححته ولكن لم تظهر بيانات على الصفحة

هل طريقتي صحيحة

الرجاء التواصل كي تجعلني آخذ أول خطوة مع ASP ياليت تشرحلي الطريقة

وتقبل تحياتي

استخدم [code2 ] في بداية كتابة الكود و [/code2 ] في النهاية ، طبعا بدون اي مسافة

بالنسبة للكود فهو صحيح ولكن تأكد من مسار موقع ملف قاعدة البيانات ، أيضا دائما أكتب رسالة الخطأ التي تظهر لك ومن خلال رسائل الاخطاء يمكن معرفة المشكلة ...

بالتوفيق (f)

فعلا الكود فيه جملة while ناقصة وهذا تعديل للكود :

<%@language=VBScript codpage="1256"%>
<%
dim connectionstring
dim Ado 
connectionstring="provider=microsoft.jet.OLEDB,4,0,"&"data source="&server.MapPath("databaseproject.mdb")
set ADO = server.greateobject("ADODB.connection")
ADO.connectionstring=connectionstring
ADO.open

selectsql="select * from tech_news"
set rs =ADO.execute(selectsql)

'أضف هذة الجملة التي في الأسفل
while (not rs.eof)

response.write rs("subject")
response.write rs("add_dat")
response.write rs("body")

'وهذا الإغلاق لها
wend

%>

لقد نسخت الكود إلى برنامج المذكرة وسويتله حفظ في الملف ( المجلد wwwroot ) حيث أنني منزلة على المحرك دي لأن الوندوز هو اكس بي على الدي

وقد حفظت الصفحة بإسم التالي pp30.asp

وعند إستعراضها يفتح لي برنامج اعتقد انه VBديفلوبور

في عرض التصميم

وهو يحدث عادة معي ويلون بعض الكود باللون الاصفر ولكن عند مراجعة الكود لايتضح خطأ

وكذلك عند تصفح الصفحة في الفرنت بيج لايظهر بيانات القاعدة ولا يعطي خطأ

فهل عملي صحيح

بعض الاكواد نقلتها حرفياً من كتب وراجعتها جيداً ولكن دون جدوى ماهو الحل لو تكرمتم ولكم مني جزيل الشكر

اخي المميز الكود الاول ليس ناقصا ولكن يعرض السجل الاول فقط وهذا ما اردت الوصول اليه .. وثانيا الكود الذي كتبته به عدة أخطاء حتى بعد التعديل ، فتأكد من طريقة كتابة codepage كذلك create

واذا اردت عرض السجلات جميعا فيمكن استخدام الطريقة while wend لعمل دوارة

<%
Set connectionstring=Server.CreateObject("ADODB.Connection")
connectionstring.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databaseproject.mdb") & ";"
Set rs=server.CreateObject("ADODB.Recordset")
%>
<%
selectsql="select * from tech_news"
Set RS=connectionstring.Execute (selectsql)	
If RS.EOF Then 
response.write("wrong")
else
while not RS.EOF

set rs =connectionstring.execute(selectsql)
response.write rs("subject")
response.write rs("add_dat")
response.write rs("body")

RS.MoveNext
wend
RS.close
end if
%>

نقطة أخرى انت لم تضع رسالة الخطأ او لم توضح ماذا يحدث بالضبط ، كل ما عليك هو كتابة http://localhost/filename.asp في المتصفح

ولكن فيه الأخطاء التي ذكرتها وهي codepage و create لأني لم أكتبها وإنما نسختها من أعلى كود في هذة الصفحة كما هي ولم أنتبه لها ولذلك هي في الكود الأصلي لدية مكتوبة بشكل خاطيء وهي ربما تكون سبب المشكله الحقيقي

أخي ketkat جرب آخر كود كتبة الأخ أحمد فقط (مين يقدر يتعدى على المشرف)...

أخي المميز ،،

الجواب لا يهم سواء من مشرف او من غيره ... المهم أن يكون مدقق وبطريقة صحيحة ، فهذه أمانة في أعناقنا نعطيها للغير ، وصدقني أخي الكريم جل من لا يسهو فكلنا نخطئ ،،، ولكن الأهم أن نعترف بخطأنا :) ... ولك كل تقديري و تحياتي (f)

محــبـ أحمد الجفري ـــــكم

وياليت تراسلني يا أخ أحمد على الإيميل

aspnet@arabicasp.net

محتاجك في شي مهم ومن أسبوعين أحاول أراسلك ماقدرت أحصل إيميلك وعن طريق المنتدى يرفض ...

هذا هو بريدي

ajifri@arabteam2000.com

وأرسلت لك رد ومنتظر منك رد عليه ...

شاكرا لك تعاونك