<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then name = Request.Form("name") email = Request.Form("email") address = Request.Form("address") city = Request.Form("city") state = Request.Form("state") zipcode = Request.Form("zipcode") phone = Request.Form("phone") night_phone = Request.Form("night_phone") fax = Request.Form("fax") comments = Request.Form("comments") URL = Request.ServerVariables("url") REMOTE_TIME = Now() Body=Body+"name: " & name & vbcrlf Body=Body+"email: " & email & vbcrlf Body=Body+"address: " & address & vbcrlf Body=Body+"city: " & city & vbcrlf Body=Body+"state: " & state & vbcrlf Body=Body+"zipcode: " & zipcode & vbcrlf Body=Body+"phone: " & phone & vbcrlf Body=Body+"night_phone: " & night_phone & vbcrlf Body=Body+"fax: " & fax & vbcrlf Body=Body+"comments: " & comments & vbcrlf Body=Body+"URL: " & URL & vbcrlf Body=Body+"TIME SUBMITTED - add 1 hour: " & REMOTE_TIME & vbcrlf Subject = "OMP Consulation Request Form" ToAddress = "info@one-marketplace.com" 'ToAddress = "info@one-marketplace.com" FromAddress = Email 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 Dim myMail Set myMail=Server.CreateObject("CDO.Message") '==This section provides the configuration information for the remote SMTP server. MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "forms@one-marketplace.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "forms123forms" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MyMail.Configuration.Fields.Update '==End remote SMTP server configuration section== myMail.From=FromAddress myMail.ReplyTo=email myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"default.asp" Set mail = Nothing sendMail = True End If %>


Chat, email or call today! 
One of our skilled representatives will be glad to assist you.


One Market Place

5500 Military Trail  .  Suite 22-223  .  Jupiter, Fl  .  33458


Customer Service

561-291-9383
 

Name:
(spam note) E-mail:
Address:
City:
  State
Daytime Phone#:
Night Phone#:
Fax#:
Comments:
 
  (spam note)