<% If Request.Form("cmdSend") <> vbNullString Then Dim strFrom, strTo, strSubject, strBody Dim objMessage, objConfig Dim strRedirectUrl strFrom = "formmail@infidia.de" 'Absender strTo = "info@emcworldwide.com" 'Empfänger strSubject = "Seminaranfrage www.emcworldwide.com" 'Mail Subject strRedirectUrl="de_anfrage.asp?mode=send" strBody ="Nachricht von Firma: " & Request.Form("txt_firma") & "
" strBody = strBody & "Name: " & Request.Form("txt_name") & "
" strBody = strBody & "PLZ: " & Request.Form("txt_plz") & "
" strBody = strBody & "Ort: " & Request.Form("txt_ort") & "
" strBody = strBody & "Strasse: " & Request.Form("txt_strasse") & "
" strBody = strBody & "Telefon: " & Request.Form("txt_tel") & "
" strBody = strBody & "Telefax: " & Request.Form("txt_Fax") & "
" strBody = strBody & "Email: " & Request.Form("txt_mail") & "
" strBody = strBody & "Seminarthema: " & Request.Form("sel_seminar") & "
" strBody = strBody & "Datum: " & Request.Form("txt_datum") & "
" strBody = strBody & "Alternativdatum: " & Request.Form("txt_alterndatum") & "
" strBody = strBody & "Anzahl Teilnehmer: " & Request.Form("txt_anzahl") & "
" strBody = strBody & "Bemerkung: " & Request.Form("txtWW") & "
" '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) = "formmail@infidia.de" '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 %> EMC Export Management Consulting, Import Export Beratung, Interkulturelles Business Training, Seminare

 

   :: zurück
 
 

 

Kontakt & Seminaranfrage

<% if Request.QueryString("mode") = "send" Then %>

 

Ihre Anfrage wurde versendet, vielen Dank!

Wir werden uns umgehend mit Ihnen in Verbindung setzen.

 

<% Else %>
 
Vorname Name:
  
   
Firma:   
   
Straße:   
   
PLZ, Ort:      
   
Telefon:   
   
Telefax:   
   
Email:   
   
 
   
Seminarthema:   
   
Wunschdatum:   
   
Alternativdatum:   
   
Teilnehmeranzahl:   
   
   
Bemerkungen:
   
 
   
Versenden:
   

 

 

<% end if %>