<% If Request.Form("cmdSend") <> vbNullString Then Dim strFrom, strTo, strSubject, strBody Dim objMessage, objConfig Dim strRedirectUrl strFrom = "formmail@infidia.de" 'Absender strTo = "info@alte-brauerei-karlstadt.de" 'Empfänger strSubject = "Nachricht über Internet" 'Mail Subject strRedirectUrl="kontakt.asp?mode=send" strBody ="Nachricht von Firma: " & Request.Form("Firma") & "
" strBody = strBody & "Name: " & Request.Form("Vorname") & "
" strBody = strBody & "PLZ: " & Request.Form("PLZ") & "
" strBody = strBody & "Ort: " & Request.Form("Ort") & "
" strBody = strBody & "Strasse: " & Request.Form("Straße") & "
" strBody = strBody & "Telefon: " & Request.Form("Telefon_Fax") & "
" strBody = strBody & "Email: " & Request.Form("Email") & "
-----------------------------------------------------
" strBody = strBody & "Mitteilung: " & Request.Form("Nachricht") & "
" 'Erzeugen des Email Server Objects Set objMessage = CreateObject("CDO.Message") Set objConfig = CreateObject("CDO.Configuration") 'Hier wird festgelegt wie die Mails versendet werden (lokal oder extern) 'Bitte immer externen Versand angeben, da eine lokaler Versand nicht 'möglich ist. objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort 'Ausgehender SMTP Server mit SMTP-Auth objConfig.Fields(cdoSMTPServer) = "smtp.1und1.com" 'SMTP Port objConfig.Fields(cdoSMTPServerPort) = 25 'Klartext Authentifizierung objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic 'Accountname objConfig.Fields(cdoSendUserName) = "m36798735-13" 'Passwort objConfig.Fields(cdoSendPassword) = "formmail1" objConfig.Fields.Update Set objMessage.Configuration = objConfig objMessage.To = strTo objMessage.From = strFrom objMessage.Subject = strSubject objMessage.HTMLBody = strBody On Error Resume Next objMessage.Send If Err.Number = "0" Then Response.Redirect(strRedirectUrl) Else Response.Write("Waehrend des Versendens ist ein Fehler aufgetreten.") response.write Err.Number & " " & Err.Description Err.Number = "0" End If End If %> Alte Brauerei Karlstadt
<% if Request.QueryString("mode") = "send" Then %>




Ihre Anfrage wurde versendet!
Vielen Dank

<% Else %>


Kontaktformular


Ihre Personenangaben : Ihre persönliche Nachricht:
Firma:  
Name:
PLZ Ort:  
Straße & Nr.:  
Telefon/Fax:  
Email:  

<% end if %>