nicht angemeldet
Hallo Forumgemeinde,
nachdem ich alle Problemchen gelöst habe, auch mit Eurer Hilfe - !!!! Vielen Dank an alle, die mir gepostet haben !!!!!!! - und mein Versenden von ASP Seiten als eMail nun funktioniert, bin ich doch auf etwas gestoßen, bei dem ich nicht weiterkomme.
Ich kann zwar die Seite ohne Probleme verschicken (sie kommt auch an), aber nicht mit der Option "Cc". Da meldet der Browser diesen Fehler:
Laufzeitfehler in Microsoft VBScript-Fehler '800a000d'
Typen unverträglich
/infonet_working/Artikel/CDONTSMail_bestellung.asp, Zeile 70
Laut MS soll die Anweisung "Cc" funktionieren. Nur nicht bei mir...
Leider habe ich auf den MS Seiten auch kein Hinweiß über einen Patch oder ein Update vom IIS 4.0 gefunden. Ich hatte schon gedacht, es liege an einer nicht mehr aktuellen Version.
Falls es doch so sein sollte, hier meine Konfiguration:
- NT Server 4.0
- NT Servicepack 4
- IIS 4.0 (OP 4)
- FP 2000 Servererweiterungen
Hat jemand von Euch Erfahrung damit oder kann mir sagen, was ich falsch mache?
Anbei hänge ich meinen Code für die "Sendeseite". Vielleicht fällt Euch ja etwas auf....???
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META HTTP-EQUIV="Content-Type"
content="text/html;charset=iso-8859-1">
<TITLE>CDONTSMail</TITLE>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "<br>")
end sub
%>
</HEAD>
<BODY>
<%
Dim myCDONTSMail
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
Dim strFrom
Dim strTo
Dim strCc
Dim strSubject
Dim Name
Dim Strasse
Dim Ort
Dim Artikel
Dim Artikelnr
Dim Menge
Dim BestellText
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strBestellText = "hiermit bestelle ich folgende Artikel:"
strLieferAdresse = "Bitte liefern Sie die Ware an folgende Adresse:"
strName = request.form("Vorname") & " " & request.form("Nachname") & ""
strStrasse = request.form("Strasse")
strOrt = request.form("plz") & " " & request.form("Ort") & ""
strArtikel = request.form("Artikel")
strArtikelnr = request.form("Artikelnr")
strMenge = request.form("Menge")
strFrom = request.form("email") & "@lundbeck.com"
strTo = "xyZ@lundbeck.com"
strCc = "abc@lundbeck.com"
strSubject = "Test Materialbestellung von " & strName & " "
strBody = "Sehr geehrter Herr Kuprivizius," & CHR(13) & CHR(13)
strBody = strBody & strBestellText & CHR(13) & CHR(13)
strBody = strBody & request.form("Artikel") & " " & request.form("Artikelnr") & " " & request.form("Menge") & CHR(13) & CHR(13)
strBody = strBody & strLieferAdresse & CHR(13) & CHR(13)
strBody = strBody & strName & CHR(13)
strBody = strBody & strStrasse & CHR(13)
strBody = strBody & strOrt & CHR(13) & CHR(13)
'The following four lines of code are just here for test
'purposes to see what variables have been pulled in from the
'HTM form.
Write("Absender = " & strFrom)
Write("Adressat = " & strTo)
Write("Kopie an = " & strCc)
Write("Betreff = " & strSubject)
Write("Nachricht = " & strBody)
myCDONTSMail.Send strFrom,strTo,strCc,strSubject,strBody
Set myCDONTSMail = Nothing
Write "Ihre Bestellung wurde an " & strTo & " abgeschickt."
%>
</BODY>
</HTML>