שאלה ב- VBS

בעיה עם שאילתה
יש לי שאילתה שאמורה למצוא לי רק חלק מתוך הכלל אבל משום הום מוצא לי הכל במסד נתונים יש לי את המספרים את הסטרינג הבא 1, 3, 5 ומשום מה כשאני מבקשממנו למצוא 4 הוא נותן לי גם את אלה שהם 1, 3, 5 למה מצורפת השאילת שלי..

rs.open "select * from articale where section_id like '%" &question& "%'"

זה לא פועל למישהו יש הצעה אחרת?

אולי אתה תקרא כאן
כאן

שכחתי לשרשר אוריקס בבקשה

בעיות עיברית
אני רשום ל-websamba אבל משום מה אחרי כמן זמן שהכל פעל טוב פתאום אין תמיכה בעיברית עיברית נראית כ-סימני שאלה מה אפשר לעשות

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

בעיה עם שאילתה
הנה הERROR :

Request object error 'ASP 0102 : 80004005'

Expecting string input

/eldadasp/update.asp, line 167

The function expects a string as input.

והנה השאילתה:

conn.execute "UPDATE articale SET title=" & request.form(title) & ","& subtitle=request.form(subtitle) &","& body=theInput &" where id="&application("var")

אני יושב על זה שעה ואני לא מצליח להבין איפה יש טעות….

אין שינוי אותו ERROR
הנה השאילתה החשה (באדיבות ניר המלך )

conn.execute "UPDATE articale SET title=" & request.form(title) & ", subtitle="& request.form(subtitle) &", body="&theInput &" where id="&application("var")

הנה הERROR

Request object error 'ASP 0102 : 80004005'

Expecting string input

/eldadasp/update.asp, line 167

The function expects a string as input.

תודה!|איזה מאפיין של RS סופר רשומות

מה זה מפתח מספר 3?
בדקתי זה מצייני הכיוון?

rs.open "select * from table" , 3,3

שכחתי לצרף את התמונה…

הנה הקוד:

<%
const mydb="db4.mdb"
function connect()
set conn = server.createobject("ADODB.connection")
conn.mode=admodereadandwrite
conn.open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& server.mappath(mydb))
set connect=conn
end function
set conn = connect()
set rs = server.createobject("adodb.recordset")
rs.activeconnection=conn

rs.Open "SELECT* FROM Messages ORDER BY Id" ,Conn,3,3,1
dim recArray
If Not rs.EOF Then
    recArray = rs.getRows()
    dim i
    for i=0 to uBound(recArray,2)
        if recArray(1,i)=0 then
            call showMessage(i)
            Response.Write("<hr>")
        end if
    next

Else
    Response.Write("אין הודעות")
End If

function showMessage(index)
    dim subject
    subject = recArray(2,index)
    Response.Write("<div style=""padding-right: 20px"">")
    Response.Write(subject)
    for a=0 to uBound(recArray,2)
        if recArray(1,a) = recArray(0,index) Then
            call showMessage(a)
        end if
    next
    Response.Write("</div>")
end function
%>