مشکل با فرا خواندن متن از جداول اکسس

[yasser_sajjadi]

آقا یک مشکل اساسی دیگه
من از کد زیر برای خواندن جداول استفاده میکنم

<%
Dim adoCon 
Dim rsGuestbook		
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/dbForum.mdb")
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TitelPageS.* FROM TitelPageS Where Code = '" & Request.QueryString("f")  & "'"
rsGuestbook.Open strSQL, adoCon
Do While not rsGuestbook.EOF	
	 Response.Write (rsGuestbook("Titel")) 	

		rsGuestbook.MoveNext
loop	
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

وقتیکه یک کد رو مخام وسط صفحه استفاده کنم میگه متن رو باید کامل استفاده کنین عنی مثل زیر نمیشه

<%
Dim adoCon 
Dim rsGuestbook		
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/dbForum.mdb")
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TitelPageS.* FROM TitelPageS Where Code = '" & Request.QueryString("f")  & "'"
rsGuestbook.Open strSQL, adoCon
%>

<%	
	 Response.Write (rsGuestbook("Titel")) 	
%>

<%	
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

 

[m1pfard]

من که چیزی متوجه نشدم. میشه خطایی رو که باهاش مواجه می شی رو بنویسی؟

 

[amirlol]

دوست من کافیه هر جا که می خوای از کد زیر استفاده کنی

<%	
	 Response.Write (rsGuestbook("Titel")) 	
%>

یا

<%= rsGuestbook("Titel") %>

که معادل هم هستند

و باز هم حواست باشه جایی از کد زیر استفاده نکنی

<%	
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

این باید آخر کار باشه

 

[m1pfard]

راستش من یه خورده از لحاظ Iq مشکل دارم. سوالو نفهمیدم که هیچ! جوبش رو هم درک نکردم!

 

[yasser_sajjadi]

از جواب خوبتون اقا امیر متشکرم