בעיה בשאילתה

נכון, שכחתי..
טוב אז שיניתי את שם השדה במסד לtheName, וגם את הqs.
עדיין לא עובד, ולצערי אין שגיאה.

אוקיי
זה הפלט:

Number: 3704
Description: Operation is not allowed when the object is closed.
Source: ADODB.Connection

אני מכיר את השגיאה, היא אומרת שניסיתי לבצע פעולה כלשהי עם הרקורדסט בזמן שהוא סגור.
אבל אני לא מבין איפה הבעיה בקוד..

תודה

כן, עדכנתי את name..
הנה הקוד העדכני:

<%@ codepage=1255 language=VBScript%>

<%
dim conn, sql
on error resume next
set conn = server.createobject("adodb.connection")
conn.Open "Provider=microsoft.jet.oledb.4.0; data source="&Server.mapPath("icq_club_data.mdb")&";"

sql = "INSERT INTO members(theName,email,des,sex,age,icq,dateReg) "
sql = sql & "VALUES ('" & request.form("theName") & "','" & request.form("email") & "','" & request.form("des") & "'," & request.form("sex") & "," & request.form("age") & "," & request.form("icq") & ",#" & request.form("dateReg") & "#)"
conn.execute sql

if err then
  response.write "Number: " & err & "<br>"
  response.write "Description: " & Err.Description & "<br>"
  response.write "Source: " & Err.Source & "<br>"
else
  response.redirect "index.asp"
end if

conn.Close
conn = nothing
%>

ואני מכיר את האובייקט error של ado..

Err.Description
Err.HelpContext
Err.HelpFile
Err.NativeError
Err.Number
Err.Source
Err.SQLState

פעם כתבתי על זה מאמר קטן..אני אנסה למצוא אותו

תודה

עכשיו הורדתי את ה# #
ושי שגיאה אחרת: (אז כנראה שלא צריך את ה# #)

Number: -2147217900
Description: Syntax error (missing operator) in query expression ".
Source: Microsoft JET Database Engine

לפי מה שאני רואה השרשור נכון..
תודה על העזרה

אוקי..
אחרי שזה עובד, אני מנסה לחלק לעמודים.
יש שגיאה והיא מצביעה על שורה 64, ואני לא מבין מה הבעיה שם.
אני מדגיש את שורה 64.

<%
dim currPage,i,pCount, numRecs
currPage = 1
numRecs = 10
if Not request("currPage") = "" then
    currPage= request("currPage")
end if

sql = "select * from allMembers order by id, 3, 1"
rs.Open sql, conn
rs.PageSize = numRecs
rs.CacheSize = numRecs

if rs.EOF then
response.write "<br /><div align='center'><span style='font-size:11pt'>אין חברים במועדון</span></div>"
else
    pCount=rs.pageCount
    rs.AbsolutePage=CurrPage

response.write "<div align='center' width='500'>"
Do While Not rs.EOF AND i < rs.pagesize

הצגת הנתונים…לא חשוב…

i=i+1
rs.MoveNext
Loop
response.write "</div>"
end if

rs.Close
set rs = nothing
conn.Close
set conn = nothing

for i = 1 to pCount
    if Cint(i) = Cint(currPage) then
        Response.Write " <b>"& i &"</b> "
    Else
        Response.Write " <a href=""index.asp?currPage="&i&""">"& i &"</a> "
    End If
Next

%>

(נעזרתי במדריך באתר)
תודה

תודה רבה!
עובד

שכחתי.. והשגיאה:


Microsoft VBScript runtime error '800a01a8'

Object required: '1'

/masterplus/Webkey_Icqclub/index.asp, line 98

עכשיו יש שגיאה אחרת..


Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/masterplus/Webkey_Icqclub/index.asp, line 98

response.write "<select name='currPage' onChange=""location.href='index.asp?currPage='+this.value&""">"
——————————————————————————————————-^

תודה

לא ממש עזר לי..
טיפה הסתבכתי בלשנות את זה לפי מה שאני צריך, אבל כבר עזרו לי (ניר)..
תודה בכל מקרה