|
<%if action = "kontakt" then%>
Kontakt
|
|
Möchten Sie uns eine Anfrage senden? Oder wünschen Sie
ein Angebot? Oder brauchen Sie eine kreative Lösung für
Ihr Problem? Über dieses Formalur können Sie jederzeit
mit uns in Kontakt treten. Wir beantworten Ihre Fragen und
Wünsche schnell und kompetent.
|
<%end if%>
<%if action = "send" then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "192.168.70.18" ' Specify a valid SMTP server
Mail.From = mmail
Mail.FromName = mname
'Mail.AddAddress "smatk@hwk-stuttgart.de"
Mail.AddAddress "s.bach@schwartz.de"
Mail.AddReplyTo mmail
Mail.Subject = "Kontaktformular www.sanitär-läpple.de"
Mail.Body = "Name: " & mname & vbcrlf & "Firma: " & mfirma & vbcrlf & "E-Mail: " & mmail & vbcrlf & "Telefon: " & mtel & vbcrlf & "Betreff: " & mthema & vbcrlf & vbcrlf & "Anfrage:" & vbcrlf & mfrage & vbcrlf
On Error Resume Next
Mail.Send
If Err <> 0 Then
action = "fehler"
else
action = "erfolg"
end if
end if
if action = "erfolg" then%>
|
Vielen Dank für Ihre Anfrage! Wir melden uns bei Ihnen in Kürze.
|
<%end if
if action = "fehler" then%>
Beim Versenden Ihrer Anfrage ist ein Fehler aufgetreten!
Probieren Sie es bitte später noch einmal.
|
<%end if%>
