imotive GmbH

<%@LANGUAGE="VBSCRIPT"%> <% If Request.Form("absenden") <> "" Then Dim StrName, StrFirma, StrFunktion, StrStrasse, StrPLZ Dim StrOrt, StrTelefon, StrTelefax, StrEmail, StrAbteilung Dim StrText, StrInfo, StrError, StrVorname StrVorname = Request.Form("vorname") StrName = Request.Form("name") StrFirma = Request.Form("firma") StrFunktion = Request.Form("funktion") StrStrasse = Request.Form("strasse") StrPLZ = Request.Form("plz") StrOrt = Request.Form("ort") StrTelefon = Request.Form("telefon") StrTelefax = Request.Form("telefax") StrEmail = Request.Form("email") StrAbteilung = Request.Form("abteilung") StrText = Request.Form("text") StrInfo = Request.Form("info") '## Errorcheck If StrVorname = "" OR StrName = "" Then StrError = "- Bitte tragen Sie Ihren Vor- und Nachnamen ein.
" End If If StrStrasse = "" OR StrPLZ = "" OR StrOrt = "" Then StrError = StrError & "- Bitte geben Sie Ihre Adresse an (Strasse, PLZ und Ort).
" End If If StrEmail = "" Then StrError = StrError & "- Bitte geben Sie Ihre eMail-Adresse an.
" End If '--> neuer E-Mail-Check, unterstützt jetzt auch .info-Domains | Eugen If (instr(StrEmail, "@") = 0 OR (left(right(StrEmail,3),1) <> "." AND left(right(StrEmail,4),1) <> "." AND left(right(StrEmail,5),1) <> ".")) AND StrEmail <> "" Then StrError = StrError & "- Bitte überprüfen Sie Ihre angegebene eMail-Adresse.
" End If If StrError = "" Then If StrInfo = "ja" Then StrInfo = "Möchte auch zukünftig über imotive Produkte informiert werden!" Else StrInfo = "" End If Set oMailer = Server.CreateObject("SMTPsvg.Mailer") oMailer.FromName = StrName oMailer.Subject = "Kontaktaufnahme ueber www.imotive.de" oMailer.FromAddress= "info@imotive.de" oMailer.RemoteHost = "mailhub.clippernet.de" oMailer.AddRecipient "", "info@imotive.de" 'oMailer.AddBCC "", "info@imotive.de" sBody = "Dies ist eine automatisch generierte E-Mail an die" & vbCrLf sBody = sBody & "Abteilung: " & StrAbteilung & vbCrLf sBody = sBody & "-------------------------------------------------------" & vbCrLf sBody = sBody & "Name: " & StrVorname & " " & StrName & vbCrLf sBody = sBody & "Firma: " & StrFirma & vbCrLf sBody = sBody & "Funktion: " & StrFunktion & vbCrLf sBody = sBody & "Strasse: " & StrStrasse & vbCrLf sBody = sBody & "PLZ: " & StrPLZ & vbCrLf sBody = sBody & "Ort: " & StrOrt & vbCrLf sBody = sBody & "Telefon: " & StrTelefon & vbCrLf sBody = sBody & "Telefax: " & StrTelefax & vbCrLf sBody = sBody & "eMail: " & StrEmail & vbCrLf sBody = sBody & "-------------------------------------------------------" & vbCrLf sBody = sBody & "Mitteilung:" & vbCrLf sBody = sBody & StrText & vbCrLf sBody = sBody & "-------------------------------------------------------" & vbCrLf sBody = sBody & StrInfo oMailer.BodyText = sBody If Not oMailer.SendMail Then Response.Write oMailer.Response End If '## Weiterleitung Dim StrResponseURL StrResponseURL = "kontakt.asp?send=true" Response.Redirect(StrResponseURL) End If End if %> imotive GmbH

VMP Produktbeschreibung

VMP Product Description

VMP Entwicklungspartner

imotive in der Presse

Kontakt

Impressum

Kontakt

Bitte füllen Sie alle mit * gekennzeichneten Felder aus.

<%If Request.Querystring("send") = "true" Then%>

Vielen Dank für Ihre Kontaktanfrage.
Wir werden diese schnellstmöglichst bearbeiten.

<%End if%> <%If StrError <> "" Then%>

Fehler: Es wurden nicht alle benötigten Daten angegeben.
<%=StrError%>

<%End if%> <%If Request.Querystring("send") = "false" Then%>

Unerwarteter Fehler:
<%=Request.Querystring("error")%>

Bitte nehmen Sie direkt via E-Mail mit uns Kontakt auf: info@imotive.de

<%End if%>

Vorname: *
Name: *
Firma:
Funktion:
Straße: *
PLZ: *
Ort: *
Telefon:
Telefax:
eMail: *

Falls Sie uns per Post kontaktieren wollen:

imotive GmbH
City Park am Goetheplatz
Kapuzinerstr. 7

D-80337 München

Welche Abteilung bei imotive möchten Sie kontaktieren ?

Ihre Nachricht:

Möchten Sie zukünftig über Imotive Produkte informiert werden?

checked<%End if%>> Ja checked<%End if%>> Nein