Logo Mobicont

headline Kontakt

<% Function ersetze(text) ersetze = replace(text, "'", "''") End Function If request("action") = "check" Then '### das Formular soll ueberprueft werden -> Formular wurde ausgefuellt und abgesendet '******************* abfragen des Formulars ************************* frmAnrede = Request.Form("slcAnrede") frmTitel = Request.Form("inTitel") frmName = Request.Form("inName") frmFirma = Request.Form("inFirma") frmPLZ = Request.Form("inPlz") frmOrt = Request.Form("inOrt") frmTel = Request.Form("inTel") frmFax = Request.Form("inFax") frmMail = Request.Form("mail_from") frmNachricht = ersetze(request.Form("txtNachricht")) '********************************************************************* mail = true If frmMail <> "" Then If Instr(1,frmMail,"@") = 0 Or Instr(1,frmMail,".") = 0 Then mail = false 'Else 'PosAt = Instr(1,frmMail,"@") 'PosDot = Instr(1,frmMail,".") 'If PosAt>1 And PosDot>1 'Dif = PosDot-PostAt 'If Dif<2 Then ' mail=false ' Response.Write(mail) 'End If End If End If Response.Write(PosAt&"
") Response.Write(PosDot&"
") Response.Write(Dif) If frmAnrede = "" OR frmName = "" OR frmPLZ = "" OR frmOrt = "" OR frmMail = "" OR frmNachricht = "" OR mail = false Then '### wenn Eingaben fehlen wird das Formular nochmal angezeigt ueberschrift = "Es wurden nicht alle Felder ausgefüllt! Bitte ergänzen Sie die fehlende Eingaben.
" If not mail Then ueberschrift = "Sie haben keine gültige Email-Adresse angegeben!!
" End If labelStyle = "txtBold" %>

Wünschen Sie nähere Informationen? Wir beraten Sie gerne!
Kontaktieren Sie uns via Telefon oder per Mail und wir helfen Ihnen gerne weiter.
<% = ueberschrift %>

<% If frmAnrede = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" auswahl = "" End If %>

<% If frmName = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" End If %>

<% If frmPlz = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" End If %>

<% If frmOrt = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" End If %>

<% If frmMail = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" End If %>

<% If txtNachricht = "" Then labelStyle = "Stern" Else labelStyle = "txtBold" End If %>



Mit einem  *  markierte Felder müssen ausgefüllt werden.

<% Else '### es wurden alle Felder ausgefuellt und das Formular kann abgesendet werden %> <% sEMailMessage = "--Kontakt via www.Mobicont.de ---------------" & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & " " & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & "Anrede: " & Chr(9) & frmAnrede & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & "Name: " & Chr(9) & frmName & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & "Firma: " & Chr(9) & frmFirma & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & "PLZ:" & Chr(9) & Chr(9) & frmPlz & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & "Ort:" & Chr(9) & frmOrt & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & "Telefon-Nr:" & Chr(9) & frmTel & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & "Telefax-Nr:" & Chr(9) & frmFax & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & "E-Mail:" & Chr(9) & frmMail & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & "Nachricht:" & Chr(9) & frmNachricht & Chr(13) & Chr(10) sEMailMessage = sEMailMessage & " " & Chr(13)& Chr(10) sEMailMessage = sEMailMessage & "------------------------------------------------------------------" & Chr(13)& Chr(10) '-- Send Mail if comSendMail ("info@Mobicont.de", "herbert.schamp@mobicont.de", "Kontakt via www.Mobicont.de", sEMailMessage, false, "christina.schamp@gmx.de") then Response.Redirect "danke.html" else Response.Redirect "fehler.html" end if End if %> <% Else '### das Formular wird zum ersten Mal aufgerufen und soll ausgefuellt werden %>

<% %>



Mit einem  *  markierte Felder müssen ausgefüllt werden.

<% End If %>
rufen Sie uns an

Sie haben Fragen?
Zögern Sie nicht und treten Sie mit uns in Kontakt.
Ihr Ansprechpartner
Reinhold Daniel Kreutzer
Tel: +49 (0) 172 679 20 83
Fax: +49(0) 615 891 799 96