<% '''''''''''''''''''''''''''''USER DEFINED VARIABLES'''''''''''''''''''''''''''''''''''' ' ERROR messages formError = "Die Eingabe Ihres Formulars hat Fehler. Einzelheiten bitte unten nachlesen." required = "Dieses Feld muss ausgef¸llt werden" invalid = "Dieser Wert ist nicht g¸ltig" ' EMAIL ADDRESS that the message is sent to emailString = "gn@gnplastics.com" filename = server.mapPath( "/data/contactUs.log" ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Trim spaces and replace characters that could interfere with the html display, ' then print out the result. sub parse ( value ) value = trim( value ) value = replace( value, "&", "&" ) value = replace( value, """", """ ) value = replace( value, "<", "<" ) value = replace( value, ">", ">" ) response.write( value ) end sub if ( Request.Form.Count > 0 ) Then firstName = Request.Form( "firstName" ) lastName = Request.Form( "lastName" ) company = Request.Form( "company" ) position = Request.Form( "position" ) address = Request.Form( "address" ) poBox = Request.Form( "poBox" ) city = Request.Form( "city" ) state = Request.Form( "state" ) zip = Request.Form( "zip" ) country = Request.Form( "country" ) phone = Request.Form( "phone" ) fax = Request.Form( "fax" ) email = Request.Form( "email" ) url = Request.Form( "url" ) comments = Request.Form( "comments" ) valid = true if ( len( firstName ) < 1 ) then firstNameError = required valid = false end if if ( len( lastName ) < 1 ) then lastNameError = required valid = false end if if ( len( company ) < 1 ) then companyError = required valid = false end if if ( len( position ) < 1 ) then positionError = required valid = false end if if ( len( country ) < 1 ) then countryError = required valid = false end if if ( len( phone ) < 1 ) then phoneError = required valid = false end if if ( len( email ) < 1 ) then emailError = required valid = false else if ( inStr( email, "@" )=0 ) then emailError = invalid valid = false end if end if if ( len( comments ) < 1 ) then commentsError = required valid = false end if if ( valid ) then tab = chr(9) newline = chr(13) & chr(10) ' Send email body = "date: " & date & " " & time & newline body = body & "firstName: " & firstName & newline body = body & "lastName: " & lastName & newline body = body & "company: " & company & newline body = body & "position: " & position & newline body = body & "address: " & address & newline body = body & "poBox: " & poBox & newline body = body & "city: " & city & newline body = body & "state: " & state & newline body = body & "zip: " & zip & newline body = body & "country: " & country & newline body = body & "phone: " & phone & newline body = body & "fax: " & fax & newline body = body & "email: " & email & newline body = body & "website: " & url & newline body = body & "comments: " & comments & newline Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp1.aliantasp.com" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = emailString .From = emailString .Subject = "Contact Us Feedback - German" .TextBody = body .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing ' Write to file contents = date & " " & time & tab & firstName & tab & lastName & tab & company contents = contents & tab & position & tab & address & tab & poBox contents = contents & tab & city & tab & state & tab & zip contents = contents & tab & country & tab & phone & fax & tab & email contents = contents & tab & url & tab & comments & newline 'set oFs = Server.Createobject("Scripting.FileSystemObject") 'set oTextFile = oFs.OpenTextFile(filename, 8, True) 'oTextFile.Write contents 'oTextFile.Close 'set oTextFile = nothing 'set oFS = nothing response.redirect( "Thanks.html" ) else globalError = formError end if end if %> GN Plastics | Über Uns | Kontakt
   

THERMOFORM - AUSSTATTUNG
         STARTSEITE     
PRODUKTE
SERVICE
ÜBER UNS
GN NEWS
DAS UNTERNEHMEN     |    LAGE    |   GN KUNDENDIENST-TEAM   |   GN HANDELSVERTRETER    |    KONTAKT        


Kontakt

Wie können wir Ihnen helfen?

<% if (len(globalError)>0) then %>

<%= globalError %>

<% end if %>
Name *
<% if (len(firstNameError)>0) then %>
<%= firstNameError %> <% end if %> 		<% if (len(lastNameError)>0) then %>
<%= lastNameError %> <% end if %>
Firma * <% if (len(companyError)>0) then %>
<%= companyError %> <% end if %>
Position / Titel * <% if (len(positionError)>0) then %>
<%= positionError %> <% end if %>
Strasse
Postfach
Ort
Provinz / Staat
Postleitzahl
Land * <% if (len(countryError)>0) then %>
<%= countryError %> <% end if %>
Telefon * <% if (len(phoneError)>0) then %>
<%= phoneError %> <% end if %>
Telefax
Email * <% if (len(emailError)>0) then %>
<%= emailError %> <% end if %>
Website 0) then response.write( "value=""" & url & """>" ) else response.write( "value=""http://"">" ) end if %> >
Wie können wir Ihnen helfen?* <% if (len(commentsError)>0) then %>
<%=commentsError %> <% end if %>


by skilled GN tech nicians, ensuring that each GN Thermoformer will easily withstand the r igors of high volume production.

All GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month ma nufacskilled GN technicians, ensuring that each GN Thermoformer will easily withstand the rigors of high volume production. All GN Thermoformers and every tool underg o rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and ever y tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufac

All GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufacAll GN Thermoformers and every tool undergo rigorous performance testing and are backed by a full 12-month manufac

skilled GN technicians, ensuring that each GN Thermoformer will easily withstand the rigors of high volume production.

All GN Thermoformers and every tool dundergo rigorous performance testing and are backed by a full 12-month manufac

Thermoforming Machines GN Thermoforming Equipment
P.O. Box 710, 345 Old Trunk 3
Chester, Nova Scotia CANADA B0J 1J0
Telefon: (+1) 902-275-3571
Telefax: (+1) 902-275-3100
Email: gn@gnplastics.com 		G.N. Europe
Cajovskeho 37
Jihlava 58601, Czech Republic
Telefon: ++ 420-56-731-3078
Telefax: ++ 420-56-731-3079
Email: gn@gneurope.com

© 1997-2002 G.N. Plastics Company Limited - All rights reserved.