|
<%
if bestaetigung = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.hds-inkasso.de"
JMail.Sender = "webmaster@hds-inkasso.de"
JMail.Subject = "Informationsanforderung"
JMail.AddRecipient "info@hds-inkasso.de"
JMail.Body = "Name / Firma: " & Request.Form("name1")&chr(10)
JMail.Body = JMail.Body & "Ansprechpartner: " & Request.Form("ansprechpartner")&chr(10)
JMail.Body = JMail.Body & "Stra§e: " & Request.Form("strasse")&chr(10)
JMail.Body = JMail.Body & "PLZ: " & Request.Form("plz")&chr(10)
JMail.Body = JMail.Body & "Ort: " & Request.Form("ort")&chr(10)
JMail.Body = JMail.Body & "Land: " & Request.Form("land")&chr(10)
JMail.Body = JMail.Body & "Telefon: " & Request.Form("telefon")&chr(10)
JMail.Body = JMail.Body & "Telefax: " & Request.Form("telefax")&chr(10)
JMail.Body = JMail.Body & "email: " & Request.Form("email")&chr(10)
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
JMail.Execute
end if
%>
<% if bestaetigung = 1 then%>
Informationsanforderung
Vielen Dank für Ihr Interesse an unseren Dienstleistungen. Wir werden Ihnen umgehend und völlig unverbindlich weitere Informationen über uns auf dem Postweg zusenden. <% end if %>
<% if bestaetigung = 0 then %>
Informationsanforderung
Wenn Sie weitere Informationen über unsere Dienstleistungen erhalten möchten, füllen Sie bitte das folgende Formular vollständig aus oder schicken eine eMail mit den entsprechenden Daten an info@hds-inkasso.de
(* = Pflichtfelder)
<%=msg%>
<% end if %>
|
