SMS script

Hvorfor får jeg denne fejl:

------------

Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e07\'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/chat/sms/sms_function.asp, linje 12

-----------------


i denne kode : ??

------------------------
<%
id = Request(\"id\")
afsendermail = \"sms@hej-sa.dk\"
afsender = Request.Form(\"afsender\")
besked = Request.Form(\"besked\")
mailer = 2

\'--- Database Forbindelse
Set conn = Server.CreateObject(\"ADODB.Connection\")
connString = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../chat.mdb\")
conn.open(connString)

sql = \"SELECT * FROM users WHERE id=\'\" & id & \"\'\"
set rs = conn.execute(sql)
if afsender = \"\" then afsender = rs(\"nick\")
mobil = rs(\"mobil\")
Conn.close
Set conn = Nothing
Set rs = Nothing

\'--------- SKAL TILRETTES FØR BRUG SLUT ----------

fedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FFFFFF\"\"><STRONG>\"
gulfedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FFFF00\"\"><STRONG>\"
rodfedfont = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"2\"\" COLOR=\"\"#FF0000\"\"><STRONG>\"
fedstor = \"<FONT FACE=\"\"Arial\"\" SIZE=\"\"4\"\" COLOR=\"\"#000099\"\"><STRONG>\"
fe = \"</STRONG></FONT>\"




if besked = \"\" then
    sendsms = rodFedfont &\"Besked feltet SKAL udfyldes !!! \"& fe
else

    selskab = \"@sms.mobilix.dk\"
   

If Not IsNumeric(mobil) Then
    gyldigt = 0
else
    if len(mobil) <> 8 then
        gyldigt = 0
    else
        gyldigt = 1
    end if
end if


   
        navn = \"Besked fra \"& afsender
        tekst = besked
        mobiltekst = navn &\". \"& besked   
        email = mobil & selskab
\'******** BESKED SENDES START ********

        if mailer = 2 then

\'--------------ASPMail mail start---------------------

            Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
            Mailer.RemoteHost = \"smtp.mail.dk\"
            Mailer.FromAddress = afsendermail
            Mailer.AddRecipient email
            if selskab <> \"@sms.tdm.dk\" then
                Mailer.Subject = navn
                Mailer.BodyText = tekst
            else
                Mailer.BodyText = mobiltekst
            end if
            Mailer.SendMail

        end if
    end if
    if gyldigt = 1 then
        sendsms = fedfont &\"Besked er sendt til:<BR><BR>Telefonnummer: \"& rodfedfont & mobil

    elseif gyldigt = 0 then
        sendsms = rodFedfont &\"Telefonnummeret er ikke gyldigt !!! \"& fe
    end if
%>

---------------------