عفوا لم اكتب الكود في السؤال السابق

<% 
adopenstatic=3 
adCmdText=1 

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
& Server.MapPath("library.mdb") & ";"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "Select * From info", Conn, adopenstatic, adCmdText
%>

أخي فهيم

اولا جملة التكرار ناقصة وثانيا لا تنسى اغلاق قاعدة البيانات :)

ورجاء أخير عند مواجهة المشكلة أن تضح رسالة الخطأ والكود

<% while not RS.EOF %> 
[trrrrr] 
<%=RS("ID")%> 
<%=RS("Name")%> 
<%=RS("Age")%> 
[/trrrrr] 
<%
RS.MoveNext
wend
RS.close
%>

بالتوفيق (f)

اخي احمد :

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

فانا قد عملت كما اخبرتني وطبقت الكود الذي اعطيتني اياه ولكن

اخبرني بان المشكله او الخطاء في هذا السطر :

& server.MapPath("library.mdb") & ";"

الخطاء لم افهمه جدا حيث قال انه ينقصه جمله اخي على العموم انا اشكرك اخي على تعبك معي

الكود الذي كتبته كاملا هو:

<%

adopenstatic=3
asCmdText=1		

set conn=server.createobject("ADODB.Connection")
conn.open "provider=Microsoft.jet.OLEDB.4.0; Data source="
& server.MapPath("library.mdb") & ";"
set RS=server.createobject("ADODB.Recordset")
RS.open "select * from info", conn, adopenstatic, adCmText

%>

اخي عفوا لم انسخ الكود كاملا حيث ان للكود بقيه فانا قد اغلقت قاعدة البييانات كما اخبرتني وهذه تكملة الكود الذي كتبته سابقا.

<%
Rs.MoveNext
wend
Rs.close
%>

الغريب ان البرنامج يعمل لدي ولكن يفضل لو تضع رسالة الخطأ التي ظهرت لك وقد تكون بسبب موقع قاعدة البيانات

اخي احمد

شكرا جزيلا اخي فالكود قد اشتغل حيث غيرت في كود ربط الصفحه بقاعدة البيانات كالتالي:

<%
set Conn=server.createObject("ADODB.Connection")
ps="provider=microsoft.jet.OLEDB.4.0; data source="
ps=ps & server.MapPath("library.mdb")
conn.open ps
set RS=server.createobject("ADODB.Recordset")
RS.open "select * from info", conn
%>

اخ احمد

بعد ان عدلت الكود السابق كما اخبرتك سابقا الذي حدث هو مايلي:

لم يطلع خطاء بال ظهر الجدول ولكن المشكله انه بشكل غير مرتب

اي بمعنى ان بعض بيانات الجدول كتبت داخله والبعض الاخر كتبت بشكل غير مرتب خارجه مع ضهور بعض الخرابش عليها

فكيف تحل هذه المشكله

جزاك الله خير (f)

اخ احمد

بعد ان عدلت الكود السابق كما اخبرتك سابقا الذي حدث هو مايلي:

لم يطلع خطاء بال ظهر الجدول ولكن المشكله انه بشكل غير مرتب

اي بمعنى ان بعض بيانات الجدول كتبت داخله والبعض الاخر كتبت بشكل غير مرتب خارجه مع ضهور بعض الخرابش عليها

فكيف تحل هذه المشكله

جزاك الله خير (f)

اخي فهيم هذا هو البرنامج بالكامل مع قاعدة البيانات

اذا حصلت المشكلة ايضا أتمنى أن تضعه على الانترنت في احدى المواقع المجانية كـBrinkster حتى ارى ما المشكلة .

شي آخر ما نسخة الاكسس لديك ...؟؟

اخي الحبيب احمد

الكود وصل وبالشكر

بقي شيئ واحد فقط كيف اجعل مكان الاسم لينك

اعتقد انت قد اعطيتنا الجواب سابقا ولكن لم اعرف اين اضع جملة الينك

مره اخرى اشكرك اخي

ياحبذا لو تعطينا عنوان موقعك حتى اكون من الطلاب المتشرفين بازيارته

(f) :) (gift)

"><%=RS("Name")%>

حيث Name هو الحقل الخاص بالاسماء و WebSIte هو الحقل الخاص بـالموقع مثلا او الايميل ... طبعا هذا حقل جديد يجب اضافته

الموقع الان هو الفريق العربي للبرمجة :) والذي نحن جميعا طلابه

اخي احمد :

ولو كان في احراج لي طلب اخير

مشكور على كود اللينك الذي اعطينتنا اياه ولدي الجدول هذا وانا اريد ان اجعل فقط فقرة الملاحظات(Notes) تكون بشكل لينك

فلم اعرف ماهي الوضعية الحقيقيه للكود اخي الجدول موضح هنا فقط ارجوك ان تدخلي الجمله (جملة الربط )

وربنا يخليك لنا إن شاء الله استاذ ومعلم .

الجدول يشتغل تمام حسب ماعلمتنا والجدول هو:

<%

	for ipage=1 to rs.pagesize 
		response.write("[trrrrr]")

		response.write("" & rs("BookId") & "")
		response.write("" & rs("UserId") & "")
		response.write("" & rs("LoanTime") & "")
		response.write("" & rs("KeepTime") & "")
        response.write("" & rs("Notes") & "")


		    response.write("[/trrrrr]")

		rs.MoveNext
		if rs.eof then exit for
	next
Rs.close
%>

response.write("" & rs("Notes") & "")