Hallo zusammen,
ich habe ein einfaches Skript für die Anmeldung zu einem Newsletter (User gibt E-Mail-Adresse ein + wählt aus ob An- oder Abmelden).
Es scheint alles zu klappen: Formular wird durchlaufen, und es erscheint die Sende-Bestätigung.
Allerdings kommt keine E-Mail an; ich vermute ein Server-Problem (aktueller IIS), der SMTP-Server läuft allerdings.
Ich hatte versucht Response.Write(email.Wahl) vor email.Send zu setzen, er hat aber dazu kein Ergebnis ausgegeben. Anscheinend wird das Email-Object erst gar nicht angelegt.
Vielleicht entdeckt jemand beim überfliegen etwas? Obligatorisches HTML habe ich weggelassen. Habt Dank!!!!
Kian
//////////////// Script-Anfang
<%@ Language=VBScript %>
<%On Error Resume Next%>
<%Response.ExpiresAbsolute = #1/1/1980#
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "Pragma", "no-cache"%>
<%if request("adresse") = "E-Mail Adresse" then%>
<FORM name="emailform" action="abo.asp" method="post">
<INPUT tabIndex="9" size="30" size="14" value="E-Mail Adresse" name="adresse"><br>
<INPUT type=radio CHECKED value="Anmelden" name="auswahl"> Anmelden
<INPUT type=radio value="Abmelden" name="auswahl"> Abmelden<br>
<INPUT tabIndex="11" type="submit" value="Bestätigen" name="senden">
<INPUT tabIndex="12" type="reset" value="Löschen" name="return">
</FORM>
<%else
'Neues email-Objekt erzeugen, mit Formulardaten füllen und absenden
Set email = CreateObject("CDONTS.NewMail")
email.From = request("adresse")
email.To = "kiank@arcor.de"
email.Subject = "TestSubject"
email.Body = "TestBody"
email.Wahl = request("auswahl")
email.Send
Set email = Nothing%>
<p><center>Ihre Nachricht wurde weitergeleitet</center></p>
<%end if%>