Chris Kurt
Erfahrenes Mitglied
bei meiner site klappt das asp-script nich, bzw es klappt nur halb, es wird auch schön gesagt wenn man nix eingibt das man was eingeben soll (<%if Request("email") <> "" and Request("name") <> "" Then%>...usw) aber mails kommen nich an...
bin auch schon ein wenig müde vielleicht hab ich was dummes übersehen aber für den fall das jemand den fehler eher finden sollte post ich mal meine .asp:
vorsicht jetzt kommt code:
<html>
<head>
</head>
<body>
<%if Request("email") <> "" and Request("name") <> "" Then%>
//dankeschreiben html
</body>
</html>
<%
' Variablen deklarieren
Dim objCDOMail
Dim strFrom, strTo
Dim strSubject, strBody
' Variablen füllen
strFrom = "comment@kuat.de"
strTo = "ck@tna.de"
strBcc = "kuat@gmx.de"
strSubject = "comment"
strBody = "comment" & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Name: " & Request("name") & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Email: " & Request("email") & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Text: " & Request("text") & vbcrlf
'x*************************************************************'
strBody = strBody & vbCrLf
' Mail Objekt erstellen
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Emaileinstellungen
objCDOMail.BodyFormat = 0 ' im Textformat senden
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Bcc = strBcc
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' möglich, aber hier nicht verwendet
'objCDOMail.Cc = ""
'objCDOMail.Bcc = ""
'objCDOMail.Importance = 1
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
' Email senden
objCDOMail.Send
' Mail Objekt freigeben
Set objCDOMail = Nothing
%>
<%Else%>
//fehler bitte geben sie was ein html
</body>
</html>
<%End if%>
fehler- & dankeschreiben hab ich jetzt weggelassen weil mehr als 10000 zeichen nich erwünscht sind, aber da liegt der fehler nich, da die seiten problemlos angezeigt werden. das einzige was nich klappt ist die mail-zustellung
um mal dummen antworten vorzubeugen: mein server kann asp.
danke fürs durchlesen & noch mehr dank fürs beantworten
·kuat·
bin auch schon ein wenig müde vielleicht hab ich was dummes übersehen aber für den fall das jemand den fehler eher finden sollte post ich mal meine .asp:
vorsicht jetzt kommt code:
<html>
<head>
</head>
<body>
<%if Request("email") <> "" and Request("name") <> "" Then%>
//dankeschreiben html
</body>
</html>
<%
' Variablen deklarieren
Dim objCDOMail
Dim strFrom, strTo
Dim strSubject, strBody
' Variablen füllen
strFrom = "comment@kuat.de"
strTo = "ck@tna.de"
strBcc = "kuat@gmx.de"
strSubject = "comment"
strBody = "comment" & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Name: " & Request("name") & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Email: " & Request("email") & vbcrlf &_
"------------------------------------------------------" & vbcrlf &_
"Text: " & Request("text") & vbcrlf
'x*************************************************************'
strBody = strBody & vbCrLf
' Mail Objekt erstellen
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' Emaileinstellungen
objCDOMail.BodyFormat = 0 ' im Textformat senden
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Bcc = strBcc
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' möglich, aber hier nicht verwendet
'objCDOMail.Cc = ""
'objCDOMail.Bcc = ""
'objCDOMail.Importance = 1
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
' Email senden
objCDOMail.Send
' Mail Objekt freigeben
Set objCDOMail = Nothing
%>
<%Else%>
//fehler bitte geben sie was ein html
</body>
</html>
<%End if%>
fehler- & dankeschreiben hab ich jetzt weggelassen weil mehr als 10000 zeichen nich erwünscht sind, aber da liegt der fehler nich, da die seiten problemlos angezeigt werden. das einzige was nich klappt ist die mail-zustellung
um mal dummen antworten vorzubeugen: mein server kann asp.
danke fürs durchlesen & noch mehr dank fürs beantworten
·kuat·