<% @ 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 = "Contact" strRedirectUrl = "" SectionId = "Contact" PubId = 363 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 - Contact

<% 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

 

company name

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

first name*

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

last name*

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

street

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

postcode

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

place

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

country

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

phone

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

fax

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

email*

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

mobile phone

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

message

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

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

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