CDONTS problem
Hejsa eksperterJeg 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.
