Avatar billede webbe Nybegynder
10. januar 2003 - 12:19 Der er 6 kommentarer og
1 løsning

CDONTS problem

Hejsa eksperter

Jeg har et problem med CDONT som jeg håber I kan hjælpe mig med.

Jeg får følgende fejl:

Fejltype:
Serverobjekt, ASP 0177 (0x800401F3)
Ugyldig klassestreng
/kaiser/intranet/default.asp, line 57


Min kode er:

If (Request.ServerVariables("CONTENT_LENGTH") > 0) Then
    blogon = request.form("logon")
    CDato = request.form("dato")
    Navn = request.form("navn")
    Init = request.form("init")
    Email = request.form("mail")
   
Dim myMail
Set myMail = Server.CreateObject("CDONTS.Newmail")
lnk = "http://fil-server/ledelsessystem"
btxt = "En bruger ønsker adgang til Kaiserplast Intranet"
'response.write btxt
htmlText = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
htmlText = htmlText & "<html>"
htmlText = htmlText & "<head>"
htmlText = htmlText & "<title>Ny bruger til Kaiserplast Intranet</title>"
htmlText = htmlText & "</head>"
htmlText = htmlText & "<body bgcolor=#FFFFFF>"
htmlText = htmlText & "<p><font face='Verdana, Arial, Helvetica, sans-serif'>Følgende bruger skal oprettes på intranettet<BR>"
htmlText = htmlText & "<br>Dato: "&CDato&"Logon: "&blogon&"<br>Navn: "&Navn&"<br>Initialer: "&Init&"<br>E-mail: "&Email&"<br>"
htmlText = htmlText & "Klik på linket nedenunder får at gå til Intranettet.<br></font>"
htmlText = htmlText & "<a href='"& lnk & "'>"&lnk&"</a>"
htmlText = htmlText & "</body>"
htmlText = htmlText & "</html>"
myMail.BodyFormat = 0
myMail.MailFormat = 0

myMail.Send "ml@qdm.dk",tomail,"Ny bruger",htmlText ,1
        Set  myMail = Nothing
        mess= "Mail er sendt til " & tomail
            if len(umail) >1 then
            mess = mess & ". Advarsel: " & umail & " havde ikke nogen gyldig email adresse"
            end if
    response.write "<Script>alert('"& mess & "')</script>"
       
    mst= "Mail sendt til: " & tomail
end if

Linie 57 er:

Set myMail = Server.CreateObject("CDONTS.Newmail")

Jeg afvikler det lokalt på min IIS og CDONTS skulle være installeret/includeret i IIS.

Jeg har kørt det online tidligere hvor det ikke var den fejl jeg fik, men en anden fejl, som jeg ikke lige kan huske - tror det var noget med "Adgang nægtet" i følgende linie:

myMail.Send "ml@qdm.dk",tomail,"Ny bruger",htmlText ,1

Håber der er nogen der kan hjælpe mig.
Avatar billede medions Nybegynder
10. januar 2003 - 13:17 #1
Hvis ikke du har en SMTP server installeret på din server, kan du ikke!

-Prøv at læg den op på en server på nettet! -så skulle det gerne virke!

//>Rune
Avatar billede webbe Nybegynder
10. januar 2003 - 13:22 #2
Hmmmm - tror ikke der er installeret SMTP som en del af IIS.

Men hvad er der så galt med linien:

myMail.Send "ml@qdm.dk",tomail,"Ny bruger",htmlText ,1

?

Der fik jeg nemlig fejl igår da jeg afviklede det på en webserver!
Avatar billede webbe Nybegynder
10. januar 2003 - 13:42 #4
Tak for linket - har rettet lidt til efter det du har skrevet, men kan desværre ikke teste det lige nu, da jeg ikke er koblet op mod den server jeg skal teste det på.

Giver point når jeg har teste om det virker hvis det er okay med dig.
Avatar billede webbe Nybegynder
17. januar 2003 - 09:40 #5
medions:

Har nu prøvet at lave et script ligesom det du har på dit site.
Her er mit script:

If (Request.ServerVariables("CONTENT_LENGTH") > 0) Then
    blogon = request.form("logon")
    CDato = request.form("dato")
    Navn = request.form("navn")
    Init = request.form("init")
    Email = request.form("mail")
   
Dim objMail
  ' Der laves en reference til komponenten
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  ' Her erklæres mailen til at være HTML format   
  objMail.MailFormat = 0
 
  ' Her indsættes div. informationer
  objMail.From = "intranet@kaiserplast.dk"
  objMail.To = "ml@qdm.dk"
  objMail.Subject "Her skrives emnet på mailen..."
  objMail.Body "Her skrives selveste mailen...."
  objMail.Send
 
  ' Her nulstilles objektet
  Set objMail = Nothing

end if

men jeg får følgende fejl:

Microsoft VBScript runtime error '800a01b6'

Objektet understøtter ikke denne egenskab eller metode: 'Subject'

/ledelsessystem/default.asp, line 65

linie 65 er:

objMail.Subject "Her skrives emnet på mailen..."
Avatar billede webbe Nybegynder
17. januar 2003 - 10:20 #6
medions:

Har fået det til at køre lokalt på en wn2000, men jeg får en "adgang nægtet" når jeg kører det på den server det normalt skal køre på - måske det er der problemet ligger.

Du får i hvert fald point for din hjælp.
Avatar billede medions Nybegynder
17. januar 2003 - 13:43 #7
Fair nok...
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester