<% dim Name,title,address,POB,city,postalcode,country,phone,fax,email,comment,validated Name=Request.Form("Name") title=Request.Form("title") company=Request.Form("company") address=Request.Form("address") POB=Request.Form("POB") city=Request.Form("city") postalcode=Request.Form("postalcode") country=Request.Form("country") phone=Request.Form("phone") fax=Request.Form("fax") email=Request.Form("email") comment=Request.Form("comment") 'validated="True" If email<>"" and name<>"" and company<>"" and country<>"" and phone<>"" Then 'If valitaded=="True" Then response.write("Started! ") Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = Server.CreateObject("CDO.Message") objMessage.Subject = "Contact information for " & Name objMessage.Sender = "comarcom@comarcom.biz" objMessage.From = "comarcom@comarcom.biz" objMessage.To = "meytan@comarcom.biz" objMessage.TextBody = "Contact information:" & vbCRLF & "Name: " & Name & vbCRLF & "Title: " & title & vbCRLF & "Company: " & company & vbCRLF & "Address: " & address & vbCRLF & "POB: " & POB & vbCRLF & "City: " & city & vbCRLF & "Postal Code: " & postalcode & vbCRLF & "Country: " & country & vbCRLF & "Phone: " & phone & vbCRLF & "Fax: " & fax & vbCRLF & "Email: " & email & vbCRLF & "Comment: " & comment & vbCRLF & "End of contact information." '==This section provides the configuration information for the remote SMTP server. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailgw.netvision.net.il" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "comarcom" 'Your password on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "A8InqeYf" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send response.write("Done!") Response.Redirect("http://www.comarcom.biz/th1.htm") 'End If else response.write(" Please fill all the required fields before submitting") End If %>

* - Required Field

* Name
* Title
* Company
* Address
  P.O.B.
* City
  Postal Code
* Country
* Telephone
  Fax
* E-mail

Please enter your Question or Comment here:

You can also contact us through:

Tel. +972 4 9531638
Fax. +972 4 9931781
Email. contact@comarcom.biz
 
FOR RUSSIAN SPEAKERS! для получения информации на русском языке просим обращаться по тел -
+972-4-9931381 вопросы просим отправлять на электронную почту:
  jabra@comarcom.co.il
Send mail to webmaster@comarcom.biz with questions or comments about this web site.
            Copyright © 2003-2010 COMARCOM