עזרו לי בבקשה….

אני ינסה להסביר קצת יותר הפעם…
תראי,
אני עושה לולאה על NAME שנמצא בדטא בייס.
על כול אחד מהם עשיתי קישור ובו משתנה ששמו ID שנשלח לדף הבא.
עכשיו כשאני לוחץ על אחד מהקישורים הבאים אז הוא מפנה אותי לדף חדש
ואז אני מציג רק את הID שביקשתי כך:

r.open "select * from XXX where id = " & request.querystring("id") &" "

עכשיו בדף אני פותח 2 מסדים שונים בנפרד.
בפתיחה של כול מסד אני מוסיף את הקוד הזה:

r.open "select * from ZZZ where id = " & request.querystring("id") &" "

בפתיחה של המסד הראשון הכול פועל.
בפתיחה של המסד השני משהו מתפקשש…..

הינה הקוד:

' פתיחת מסד חדש
set c=server.createobject("adodb.connection")
c="provider=microsoft.jet.oledb.4.0; data source="& server.MapPath("foruma.mdb") &""
set r=server.createobject("adodb.recordset")
r.activeconnection=c
r.open "select * from foruma where id = " & request.querystring("id") &" order by id DESC"

response.write "נושא ההודעה: <b><font color=white>" &r.fields("subject") &"</b><br><br>"
response.write "ההודעה: <font color=white>" &r.fields("message") &"</font></td></tr></table>"

response.write "<table align=center bgcolor=red border=1 bordercolor=red>"
do until r.EOF
response.write "<tr><td>"
' פתיחת מסד חדש
set cs=server.createobject("adodb.connection")
cs="provider=microsoft.jet.oledb.4.0; data source="& server.MapPath("forumb.mdb") &""
set rs=server.createobject("adodb.recordset")
rs.activeconnection=cs
rs.open "select * from forumb where id = " & request.querystring("id") &" "

response.write "ההודעה: <font color=white>" &rs.fields("message") &"</font></td></tr>"

r.movenext
loop
%>
</table>

והינה הודעת השגיאה:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/bananai/forum/forumID.asp, line 39

(בין השורות שנתתי מסתתרת…)
תודה לכול מי שעוזר..

כמה דברים….
יש סגירה בכול סוף של לולאה בהמשך הקוד שנמצא אצלי

ומזתומרת "להגדיר clng על ה-queryString שהצבת" אין לי מושג מזה…
ואת הדבר השלישי אני עכשיו ינסה לסדר…