|
|
e-Quote
This form will
enable us to do a quote for you. This is only given as an
indication and does not constitute a contract. If you would like
to purchase a floor, please contact us on 0800 45 800 21 or email
us at info@kemil.com
|
| Enter
your email, so we can send you the samples tracking number.
Without this information, your request will not be processed.
Enter your
e-mail address:
|
| (*
obligatory field ) |
|
|
|
| c.- Projected
installation date |
Preferred Colors |
|
|
|
|
|
<% ELSE %>
<% body= "[Instructions]" + chr(13) %>
<% body=body+ "DupCheck=phone1" + chr(13)+_
"DupCheck2=Company" + chr(13) + "Dupcheck3=Country" + chr(13) + "Dupcheck4=Zip" +chr(13) %>
<% body=body + "OnNewAttachTrack = prueba" + chr(13) +"OnDupAttachTrack = duplicado" + chr(13)%>
<% body=body + "OnDupSendEmail=E-Quote,,Solicitud de persona ya en la base de datos"+chr(13)+_
"OnNewSendEmail1=E-Quote,New,A llegado nuevo contacto a la base de datos"+chr(13)%>
<% body=body+ "SaveThis = Web import file" + chr(13)%>
<% body=body+ "[Data]" + chr(13) + "Dear="+request.form("dear") + chr(13) + "Company=" + request.form("Company") + chr(13) + _
"Contact=" + request.form("contact")+" "+request.form("Lastname") + chr(13) + "Lastname=" + request.form("Lastname") + chr(13) + _
"Address1="+request.form("address1")+chr(13) + "Address2="+request.form("address2") + chr(13) + "City=" + _
request.form("city") + chr(13) + "State=" + request.form("state") + chr(13) + "zip=" + request.form("zip") + chr(13) + "Country=" + _
request.form("country") + chr(13) + "Phone1="+request.form("phone1") + chr(13) + "Fax="+request.form("fax")+chr(13) + _
"Source=Webimport"+chr(13) %>
<% body=body+ "key1="+request.form("key1") + chr(13) + "key2=cliente final" + chr(13) + _
"key3=gimnasios"+chr(13) + "notes="+request.form("notes")+chr(13) + "ucolor1="+request.form("ucolor1") + chr(13)+ "ucolor2="+request.form("ucolor2") + chr(13)+ "ucolor3="+request.form("ucolor3") + chr(13) + _
"Usmus="+request.form("usmus")+chr(13)+"Usaer="+request.form("usaer") + chr(13)+"Usves="+request.form("usves") + chr(13)+"Usguar="+request.form("usguar") + chr(13)+"Usotros="+request.form("usotros") + chr(13)+_
"Ummus="+request.form("ummus") + chr(13)+"Umaer="+request.form("umaer") + chr(13)+"Umves="+request.form("umves") + chr(13)+"Umguar="+request.form("umguar") + chr(13)+_
"Umotros="+request.form("umotros") + chr(13)+"Uotros="+request.form("uotros") + chr(13)+"Umf="+request.form("umf") + chr(13)+_
"Uimus="+request.form("uimus") + chr(13)+"Uiaer="+request.form("uiaer") + chr(13)+"Uives="+request.form("uives") + chr(13)+"Uiguar="+request.form("uiguar") + chr(13)+_
"Uiotros="+request.form("uiotros") + chr(13)+ "uidioma=ingles"+chr(13)+ "ua1="+request.form("ua1")+chr(13)%>
<%body=body + "[ContSupp]" + chr(13) + "cs1_rectype=P" + chr(13) + _
"cs1_contact=E-mail Address" + chr(13) + "cs1_contsupref=" + request.form("email") + chr(13) + _
"cs2_rectype=P" + chr(13) + "cs2_contact=Web Site" + chr(13) + "cs2_contsupref=" + request.form("cs2_ContSupRef") + chr(13) + _
+ chr(13) + "cs4_rectype=P" + chr(13) + "cs4_contact=Source2" + chr(13) + "cs4_contsupref=" + request.form("Source2")%>
<%
set objMail = CreateObject("CDONTS.NewMail")
objMail.To = "{$GM-WEBIMPORT$} "
objMail.From = request.form("email")
objMail.Subject = "Request info from "+request.form("country")
objMail.Importance = 2
objMail.Body = body
objmail.Send
set objmail = NOTHING
%>
Thank you <%=request.form("Dear")%><%=" "%> <%=request.form("lastname")%>
for requesting information about Kemil Flooring.
The form has been sent succesfully.
Shortly we will
reply you.
<% END IF %>
<% Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail)< 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function %>
|