Tegnet er ugyldigt - funktion

Prøv med:

sms.To = rs(\"mobil\") & \"@sms.tdm.dk\"

eagleeye - det hjalp mig ud over det problem - men der dukkede et nyt op

Funktionen ser sådan ud...

Function sendmail2(modtager, overskrift, body)

overskrifttjek = overskrift
bodytjek = body
    If overskrifttjek = \"\" Then overskrifttjek = \" \"
    If bodytjek = \"\" Then bodytjek = \" \"
    SQL = \"INSERT INTO mails (mail_owner, mail_from, mail_subject, mail_body) VALUES (\"& modtager &\",\"& Session(\"mail_login\") &\", \'\"& overskrifttjek &\"\', \'\"& Replace(bodytjek, VbCrLf,\"<BR>\") &\"\')\"
    Conn.Execute(SQL)
                       
  Set rstemp = Conn.ExeCute(\"SELECT mobil FROM users WHERE user_name = \"& modtager &\"\")

Set sms = CreateObject(\"CDONTS.NewMail\")
            sms.From = \"kum@ingermann.dk\"
            sms.To = rstemp(\"mobil\") & \"@sms.tdm.dk\"
            sms.Body = \"Du har modtaget post på www.ingermann.dk/kum\"
            sms.Send
            Set sms = Nothing
   
    Response.Redirect(\"inbox.asp\")
End function



Men den siger nu :

error \'80020009\'
Exception occurred.

/kum/mail/code_lib.asp, line 49

Linie 49:
sms.To = rstemp(\"mobil\") & \"@sms.tdm.dk\"

Har du en fornemmelse om det her vil komme til at virke ? Jeg famler lidt i blinde...

lytter >>

bobbedude >> du er velkommen :)

Ja det ville jeg tro:

Prøv efter denne at indsætte rstemp.movefirst:

Set rstemp = Conn.ExeCute(\"SELECT mobil FROM users WHERE user_name = \"& modtager &\"\")
rstemp.movefirst

eller prøv denne linie:

sms.To = \"\" & rstemp(\"mobil\") & \"@sms.tdm.dk

arh mangler \" efter .dk:
sms.To = \"\" & rstemp(\"mobil\") & \"@sms.tdm.dk\"

Så siger den:

ADODB.Recordset error \'800a0bcd\'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/kum/mail/code_lib.asp, line 46

så det fordi der ikke er angivet et mobil nummer for den valgte modtager

Set rstemp = Conn.ExeCute(\"SELECT mobil FROM users WHERE user_name = \"& modtager &\"\")

if NOT (rstemp.BOF OR rstemp.EOF) then
  Set sms = CreateObject(\"CDONTS.NewMail\")
  sms.From = \"kum@ingermann.dk\"
  sms.To = rstemp(\"mobil\") & \"@sms.tdm.dk\"
  sms.Body = \"Du har modtaget post på www.ingermann.dk/kum\"
  sms.Send
  Set sms = Nothing
else
  \'Ingen mobil nummer angivet
end if
 
Response.Redirect(\"inbox.asp\")

Det virkede - sådan cirka. Da er jeg ret sikker på at den valgte bruger havde skrevet sit telefon nr. ind. Kan du se et sted der kan ligge kan ligge en fejl.

Det ser sådan ud efterhånden :

set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/../database/maildb.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"

Response.Buffer = True

Function sendmail2(modtager, overskrift, body)

overskrifttjek = overskrift
bodytjek = body
    If overskrifttjek = \"\" Then overskrifttjek = \"&nbsp;\"
    If bodytjek = \"\" Then bodytjek = \"&nbsp;\"
    SQL = \"INSERT INTO mails (mail_owner, mail_from, mail_subject, mail_body) VALUES (\"& modtager &\",\"& Session(\"mail_login\") &\", \'\"& overskrifttjek &\"\', \'\"& Replace(bodytjek, VbCrLf,\"<BR>\") &\"\')\"
    Conn.Execute(SQL)
                       
  Set rsf = Conn.ExeCute(\"SELECT mobil FROM users WHERE user_name = \'\"& modtager &\"\'\")
if NOT (rsf.BOF OR rsf.EOF) then
  Set sms = CreateObject(\"CDONTS.NewMail\")
  sms.From = \"kum@ingermann.dk\"
  sms.To = rsf(\"mobil\") & \"@sms.tdm.dk\"
  sms.Body = \"Du har modtaget post på www.ingermann.dk/kum\"
  sms.Send
  Set sms = Nothing
else
  \'Ingen mobil nummer angivet
end if
 
Response.Redirect(\"inbox.asp\")
End function

Nej. Jeg kan se du har inført \' omkring modatger i SQL\'en på user_name. Så skal user_name være defineret som tekst i databasen.

Får du ikke nogen mail?

Jeps.. men har opdaget at det er user_id istedet for user_name - så nu håber jeg det funker lidt om lidt.

Takker for hjælpen og tålmodigheden...

/cygnet