<% @ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% ' $Archive: /APPLICATIONS/cms_2.5.1/cms/admin/asp/EmailFormular.asp $ ' $Author: Robert Birkenheuer $ ' $Revision: 5 $ ' $Modtime: 11.05.05 13:19 $ %> <% Dim bShowResults, strSubject, strDBConn, SectionId, PubId, strMailHost, strFromAddress, strAdminMail Dim myForm, strRedirectUrl, strValidationMessage Set myForm = New FormElements bShowResults = false strSubject = "Kontakt" strRedirectUrl = "" SectionId = "Kontakt" PubId = 65 strDBConn = "Provider=sqloledb;Data Source=(local);Initial Catalog=cms;User Id=cmsdb;Password=#cmsdb2006;" strMailHost = "smtprelaypool.ispgateway.de" strFromAddress = "noreply@quintx.de" strAdminMail = "" myForm.MailHost = strMailHost myForm.MailFrom = strFromAddress myForm.AdminMail = strAdminMail If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'If the Form-Field melorisContentCheck has no value the content of the form is hopefully no spam because it is an hidden field and only bots will fill it. If Request.Form("melorisContentCheck") = "" Then 'Only execute Form Processing if called from this page (avoid use of Spam Spiders) If InStr(request.ServerVariables("HTTP_REFERER"), request.ServerVariables("PATH_INFO")) > 0 Then Call myForm.PrepareRequestForm() If myForm.validateForm(strDBConn, SectionId, PubId,strValidationMessage) Then myForm.Modus = true Call myForm.saveFormValues(strDBConn, strSubject, SectionId, PubId) Call myForm.processForm(strDBConn, SectionId, PubId, strSubject) If Len(strRedirectUrl) > 0 Then Response.Redirect strRedirectUrl End If End If End If End If Else If not Request.QueryString("UID") = "" Then Call myForm.PrepareRequestData(myForm.getRequestData(Request.QueryString("UID"),strDBConn)) myForm.Modus = true End If End If %> A.C.A Riegelsberger - Kontakt

<% If not strValidationMessage = "" Then %>
<%= strValidationMessage %>
<% Else %> <% If LCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then %> <% End If End If %> <% If LCase(Request.ServerVariables("REQUEST_METHOD")) = "get" or bShowResults or Len(strValidationMessage) > 0 Then %> <% 'Check if the connection is SSL-Secured and set the protocol for the url Dim strProtocol If Request.ServerVariables("SERVER_PORT_SECURE") = 1 Then strProtocol = "https://" Else strProtocol = "http://" End If %>
<%= Request.ServerVariables("PATH_INFO") %>" method="post" onSubmit="return validateform();">

A.C.A Riegelsberger
G7, 24
68159 Mannheim
Germany
E-Mail: office@a-c-a.de
Tel:  +49 (0) 621 401 711 811
Fax: +49 (0) 621 122 977 77

Firma

<%=myForm.getTextbox(0,"company", "", "", 255)%>

Vorname*

<%=myForm.getTextbox(0,"firstname", "", "", 255)%>

Nachname*

<%=myForm.getTextbox(0,"lastname", "", "", 255)%>

Straße

<%=myForm.getTextbox(0,"street", "", "", 255)%>

PLZ

<%=myForm.getTextbox(0,"postcode", "", "", 255)%>

Ort

<%=myForm.getTextbox(0,"place", "", "", 255)%>

Land

<%=myForm.getTextbox(0,"land", "", "", 255)%>

Tel.

<%=myForm.getTextbox(0,"phone", "", "", 255)%>

Fax

<%=myForm.getTextbox(0,"fax", "", "", 255)%>

E-Mail*

<%=myForm.getTextbox(0,"email", "", "", 255)%>

Handy

<%=myForm.getTextbox(0,"phone", "", "", 255)%>

Nachricht

<%=myForm.getTextarea(40, 4, "message", "", "")%>

<%=myForm.getSubmitButton("submit", "Absenden", "")%>

 

<% Response.Write("") %>
<% End If %>