ASP Kontaktformular wird nicht ausgewertet

09/07/2008 - 14:13 von Stelios Sakalis | Report spam
Hallo Community,

wir setzen bei fast allen unserer Kunden das selbe ASP-Auswertungsscript für
Kontaktformulare ein.
Bei einem Kunden gibt es nun Probleme.
Das ASP-Script soll automatisch eine Mail mit allen angehakten Optionen des
Kontaktformulars verschicken.
Leider erhalten wir nur eine leere Seite obwohl davor alles korrekt
funktionierte.
Das Kontaktformular wurde auch nicht veràndert.
Hat Microsoft ein Update herausgebracht welches irgendetwas an CDO àndert?

Vielen Dank im voraus.
Gruß Stelios


Hier der Code der ASP Auswertungsseite:

<%
Dim objNewMail
Set objNewMail = CreateObject("CDO.Message")
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...sing") = 2 'Send the
message using the network (SMTP over the network).
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...rver") ="derserver"
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...port") = 25
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...essl") = False 'Use
SSL for the connection (True or False)
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...eout") =
60
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...cate") = 1
'basic (clear-text) authentication
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...name")
="ASPScriptversand@Domain.de"
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...word") ="passwort"
objNewMail.Configuration.Fields.Update

objNewMail.from = "ASPScriptversand@domain.de"
objNewMail.cc = Request.Form("from")
objNewMail.to = "empfànger@domain.de"
objNewMail.subject = "Kontaktanfrage von der Homepage: Von " &
Request.Form("anrede") & " " & Request.Form("firma")
objNewMail.TextBody = "Diese Kontaktanfrage wurde soeben uebermittelt:" &
vbcrlf&_
" " & vbcrlf&_
"Nachname: " & Request.Form("firma") & vbcrlf&_
"Name : " & Request.Form("anrede") & " " & Request.Form("name") & vbcrlf&_
"Strasse: " & Request.Form("strasse") & vbcrlf&_
"PLZ/Ort: " & Request.Form("plz") & " " & Request.Form("ort") & vbcrlf&_
" " & vbcrlf&_
"Telefon: " & Request.Form("telefon") & vbcrlf&_
"Telefax: " & Request.Form("telefax") & vbcrlf&_
"E-Mail : " & Request.Form("from") & vbcrlf&_
"Nachricht: " & Request.Form("nachricht") & vbcrlf&_
" " & vbcrlf&_
"Folgende Optionen wurden ausgewaehlt:" & vbcrlf&_
" " & vbcrlf&_
"Bitte senden Sie uns . . . . . . . . . . . . . : " &
Request.Form("send_us") & vbcrlf&_
"Produktinfo . . . . . . . . . . . . . . . . . .: " &
Request.Form("send_us_info") & vbcrlf&_
"Bitte treten Sie mit uns in Verbindung . . . . : " &
Request.Form("kontaktieren") & vbcrlf&_
"Wasserbehandlung . . . . . . . . . . . . . . . : " &
Request.Form("send_us_wasserbehandlung") & vbcrlf&_
"Trinkwassergenuss aus dem Wasserhahn . . . . . : " &
Request.Form("send_us_trinkwasser") & vbcrlf&_
"Warmwasserkomfort ohne Energieverlust. . . . . : " &
Request.Form("send_us_warmwasser") & vbcrlf&_
"Hygiene und Sicherheit . . . . . . . . . . . . : " &
Request.Form("send_us_hygiene") & vbcrlf&_
"Korrosionsschutz und Vitalisierung . . . . . . : " &
Request.Form("send_us_korrosionsschutz") & vbcrlf&_
"Natuerlicher Kalkschutz. . . . . . . . . . . . : " &
Request.Form("send_us_kalkschutz") & vbcrlf&_
" " & vbcrlf&_
" " & vbcrlf&_
"Heizungstechnik:" & vbcrlf&_
" " & vbcrlf&_
"Pellets. . . . . . . . . . . . . . . . . . . . : " &
Request.Form("pellets") & vbcrlf&_
"Stueckholz. . . . . . . . . . . . . . . . . . .: " & Request.Form("stholz")
& vbcrlf&_
"Gas . . . . . . . . . . . . . . . . . . . . . .: " & Request.Form("gas") &
vbcrlf&_
"Solar . . . . . . . . . . . . . . . . . . . . .: " & Request.Form("solar")
& vbcrlf&_
" " & vbcrlf&_
" " & vbcrlf&_
"Bitte senden Sie mir die Dokumente als PDF-Datei per E-Mail zu: " &
Request.Form("pdf_mail") & vbcrlf&_
"Bitte senden Sie mir die Dokumente per Post zu: " & Request.Form("post")

objNewMail.send
set objCDOMail = nothing
Response.redirect("http://www.redirectseite.de")
%>
 

Lesen sie die antworten

#1 Stelios Sakalis
09/07/2008 - 15:44 | Warnen spam
OK es hat sich erledigt, der Kunde hatte die Seite ohne Backup der aktuellen
Seiten bearbeitet und hochgeladen.


"Stelios Sakalis" schrieb im Newsbeitrag
news:
Hallo Community,

wir setzen bei fast allen unserer Kunden das selbe ASP-Auswertungsscript
für Kontaktformulare ein.
Bei einem Kunden gibt es nun Probleme.
Das ASP-Script soll automatisch eine Mail mit allen angehakten Optionen
des Kontaktformulars verschicken.
Leider erhalten wir nur eine leere Seite obwohl davor alles korrekt
funktionierte.
Das Kontaktformular wurde auch nicht veràndert.
Hat Microsoft ein Update herausgebracht welches irgendetwas an CDO àndert?

Vielen Dank im voraus.
Gruß Stelios


Hier der Code der ASP Auswertungsseite:

<%
Dim objNewMail
Set objNewMail = CreateObject("CDO.Message")
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...sing") = 2 'Send the
message using the network (SMTP over the network).
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...rver") ="derserver"
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...port") = 25
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...essl") = False 'Use
SSL for the connection (True or False)
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...eout") =
60
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...cate") = 1
'basic (clear-text) authentication
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...name")
=""
objNewMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/co...word")
="passwort"
objNewMail.Configuration.Fields.Update

objNewMail.from = ""
objNewMail.cc = Request.Form("from")
objNewMail.to = "empfà"
objNewMail.subject = "Kontaktanfrage von der Homepage: Von " &
Request.Form("anrede") & " " & Request.Form("firma")
objNewMail.TextBody = "Diese Kontaktanfrage wurde soeben uebermittelt:" &
vbcrlf&_
" " & vbcrlf&_
"Nachname: " & Request.Form("firma") & vbcrlf&_
"Name : " & Request.Form("anrede") & " " & Request.Form("name") &
vbcrlf&_
"Strasse: " & Request.Form("strasse") & vbcrlf&_
"PLZ/Ort: " & Request.Form("plz") & " " & Request.Form("ort") & vbcrlf&_
" " & vbcrlf&_
"Telefon: " & Request.Form("telefon") & vbcrlf&_
"Telefax: " & Request.Form("telefax") & vbcrlf&_
"E-Mail : " & Request.Form("from") & vbcrlf&_
"Nachricht: " & Request.Form("nachricht") & vbcrlf&_
" " & vbcrlf&_
"Folgende Optionen wurden ausgewaehlt:" & vbcrlf&_
" " & vbcrlf&_
"Bitte senden Sie uns . . . . . . . . . . . . . : " &
Request.Form("send_us") & vbcrlf&_
"Produktinfo . . . . . . . . . . . . . . . . . .: " &
Request.Form("send_us_info") & vbcrlf&_
"Bitte treten Sie mit uns in Verbindung . . . . : " &
Request.Form("kontaktieren") & vbcrlf&_
"Wasserbehandlung . . . . . . . . . . . . . . . : " &
Request.Form("send_us_wasserbehandlung") & vbcrlf&_
"Trinkwassergenuss aus dem Wasserhahn . . . . . : " &
Request.Form("send_us_trinkwasser") & vbcrlf&_
"Warmwasserkomfort ohne Energieverlust. . . . . : " &
Request.Form("send_us_warmwasser") & vbcrlf&_
"Hygiene und Sicherheit . . . . . . . . . . . . : " &
Request.Form("send_us_hygiene") & vbcrlf&_
"Korrosionsschutz und Vitalisierung . . . . . . : " &
Request.Form("send_us_korrosionsschutz") & vbcrlf&_
"Natuerlicher Kalkschutz. . . . . . . . . . . . : " &
Request.Form("send_us_kalkschutz") & vbcrlf&_
" " & vbcrlf&_
" " & vbcrlf&_
"Heizungstechnik:" & vbcrlf&_
" " & vbcrlf&_
"Pellets. . . . . . . . . . . . . . . . . . . . : " &
Request.Form("pellets") & vbcrlf&_
"Stueckholz. . . . . . . . . . . . . . . . . . .: " &
Request.Form("stholz") & vbcrlf&_
"Gas . . . . . . . . . . . . . . . . . . . . . .: " & Request.Form("gas")
& vbcrlf&_
"Solar . . . . . . . . . . . . . . . . . . . . .: " &
Request.Form("solar") & vbcrlf&_
" " & vbcrlf&_
" " & vbcrlf&_
"Bitte senden Sie mir die Dokumente als PDF-Datei per E-Mail zu: " &
Request.Form("pdf_mail") & vbcrlf&_
"Bitte senden Sie mir die Dokumente per Post zu: " & Request.Form("post")

objNewMail.send
set objCDOMail = nothing
Response.redirect("http://www.redirectseite.de")
%>

Ähnliche fragen