KikiDieNieWasWeiss
Mitglied
Ich habe ein Problem mit meinem ersten Mailformular.
Angelehnt an Beispiele von euch habe ich mit CDONTS ein Mailobjekt erstellen wollen.
Doch Leider bekomme ich eine Fehlermeldung:
Serverobjekt Fehler "ASP 0177 : 800401f3'
Server.CreateObject-Fehler
Vielleicht hilft euch mein Code weiter?
<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="/Strassen/Includes/header.asp" -->
<!--#INCLUDE VIRTUAL="/Strassen/Includes/menue.asp" -->
<HTML>
<HEAD>...</HEAD>
<body>
<form method="post" action="./MailTo.asp">
<table width="100%" border="0" ID="Table1">
<tr>
<td>
<%MenueAnfang%>
</td>
</tr>
<tr>
<td>
<%NaviOben%>
</td>
</tr>
<tr>
<td>
<br>
<br>
<%
Dim objCDO, strNachricht
strNachricht = "<b>Von</b>:" & " <br>"
strNachricht = strNachricht & Request.Form("vorname")&" " & Request.Form("nachname")&"<br>"
strNachricht = strNachricht & "<b>Telefon:</b>:" & " " & Request.Form("telefon")&"<br>"
strNachricht = strNachricht & "<b>Fax:</b>:" & " " & Request.Form("fax")&"<br>"
strNachricht = strNachricht & "<b>EMail</b>:" & " " & Request.Form("email")&"<br>"
strNachricht = strNachricht & "<b>Thema</b>:" & " " & Request.Form("thema")&"<br>"
strNachricht = strNachricht & "<b>Mitteilung</b>:" & " " & Request.Form("mitteilung")&"<br>"
Response.Write strNachricht
if Request.ServerVariables("CONTENT_LENGTH") > 0 Then
Set objCDO= Server.CreateObject("CDONTS.NewMail")
if Request.QueryString("an")="" or Request.QueryString("an")="ewald" then
objCDO.To = "info@ewald.de"
else
'hole die Infos für den passenden Übergabeparameter
end if
objCDO.FROM = ""&Request.Form("email") & vbCRLF
objCDO.SUBJECT = Request.Form("thema")
objCDO.MailFormat=cstCdoMailFormatText
objCDO.BodyFormat=cstCdoBodyFormatText
objCDO.BODY = strNachricht
objCDO.send
Set objCDO = Nothing
Response.Write "Ihre Daten wurden erfolgreich weitergeleitet."
End If
%>
<table>
<tr>
<td>Vorname</td>
<td><INPUT name="Vorname" type="text" size="50" ><br>
</td>
</tr>
<tr>
<td>Nachname</td>
<td><INPUT id="Text2" type="text" name="nachname" size="50" ><br>
</td>
</tr>
<tr>
<td>Email</td>
<td><INPUT id="Text5" type="text" name="email" size="50" ><br>
</td>
</tr>
<tr>
<td>Telefon</td>
<td><INPUT id="Text1" type="text" name="telefon" size="50" ><br>
</td>
</tr>
<tr>
<td>Fax</td>
<td><INPUT id="Text4" type="text" name="fax" size="50" ><br>
</td>
</tr>
<tr>
<td>Thema</td>
<td><INPUT id="Text3" type="text" name="thema" size="80" maxlength="80" <%if Request.QueryString("an")="ewald" then Response.Write("value='http://www.ewald.de/Strassen/' disabled")end if%>><br>
</td>
</tr>
<tr>
<td>Mitteilung</td>
<td><TEXTAREA id="Textarea1" name="mitteilung" rows="10" cols="60"></TEXTAREA><br>
</td>
</tr>
<tr>
<td colspan="2" align="center"><INPUT id="Submit1" type="submit" value="Losschicken" name="Submit1">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%NaviUnten%>
</td>
</tr>
<tr>
<td>
<!--#INCLUDE VIRTUAL="/Strassen/Includes/footer.asp" -->
</td>
</tr>
</table>
</form>
</body>
</HTML>
Angelehnt an Beispiele von euch habe ich mit CDONTS ein Mailobjekt erstellen wollen.
Doch Leider bekomme ich eine Fehlermeldung:
Serverobjekt Fehler "ASP 0177 : 800401f3'
Server.CreateObject-Fehler
Vielleicht hilft euch mein Code weiter?
<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="/Strassen/Includes/header.asp" -->
<!--#INCLUDE VIRTUAL="/Strassen/Includes/menue.asp" -->
<HTML>
<HEAD>...</HEAD>
<body>
<form method="post" action="./MailTo.asp">
<table width="100%" border="0" ID="Table1">
<tr>
<td>
<%MenueAnfang%>
</td>
</tr>
<tr>
<td>
<%NaviOben%>
</td>
</tr>
<tr>
<td>
<br>
<br>
<%
Dim objCDO, strNachricht
strNachricht = "<b>Von</b>:" & " <br>"
strNachricht = strNachricht & Request.Form("vorname")&" " & Request.Form("nachname")&"<br>"
strNachricht = strNachricht & "<b>Telefon:</b>:" & " " & Request.Form("telefon")&"<br>"
strNachricht = strNachricht & "<b>Fax:</b>:" & " " & Request.Form("fax")&"<br>"
strNachricht = strNachricht & "<b>EMail</b>:" & " " & Request.Form("email")&"<br>"
strNachricht = strNachricht & "<b>Thema</b>:" & " " & Request.Form("thema")&"<br>"
strNachricht = strNachricht & "<b>Mitteilung</b>:" & " " & Request.Form("mitteilung")&"<br>"
Response.Write strNachricht
if Request.ServerVariables("CONTENT_LENGTH") > 0 Then
Set objCDO= Server.CreateObject("CDONTS.NewMail")
if Request.QueryString("an")="" or Request.QueryString("an")="ewald" then
objCDO.To = "info@ewald.de"
else
'hole die Infos für den passenden Übergabeparameter
end if
objCDO.FROM = ""&Request.Form("email") & vbCRLF
objCDO.SUBJECT = Request.Form("thema")
objCDO.MailFormat=cstCdoMailFormatText
objCDO.BodyFormat=cstCdoBodyFormatText
objCDO.BODY = strNachricht
objCDO.send
Set objCDO = Nothing
Response.Write "Ihre Daten wurden erfolgreich weitergeleitet."
End If
%>
<table>
<tr>
<td>Vorname</td>
<td><INPUT name="Vorname" type="text" size="50" ><br>
</td>
</tr>
<tr>
<td>Nachname</td>
<td><INPUT id="Text2" type="text" name="nachname" size="50" ><br>
</td>
</tr>
<tr>
<td>Email</td>
<td><INPUT id="Text5" type="text" name="email" size="50" ><br>
</td>
</tr>
<tr>
<td>Telefon</td>
<td><INPUT id="Text1" type="text" name="telefon" size="50" ><br>
</td>
</tr>
<tr>
<td>Fax</td>
<td><INPUT id="Text4" type="text" name="fax" size="50" ><br>
</td>
</tr>
<tr>
<td>Thema</td>
<td><INPUT id="Text3" type="text" name="thema" size="80" maxlength="80" <%if Request.QueryString("an")="ewald" then Response.Write("value='http://www.ewald.de/Strassen/' disabled")end if%>><br>
</td>
</tr>
<tr>
<td>Mitteilung</td>
<td><TEXTAREA id="Textarea1" name="mitteilung" rows="10" cols="60"></TEXTAREA><br>
</td>
</tr>
<tr>
<td colspan="2" align="center"><INPUT id="Submit1" type="submit" value="Losschicken" name="Submit1">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%NaviUnten%>
</td>
</tr>
<tr>
<td>
<!--#INCLUDE VIRTUAL="/Strassen/Includes/footer.asp" -->
</td>
</tr>
</table>
</form>
</body>
</HTML>