<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then name = Request.Form("name") email = Request.Form("email") phone = Request.Form("phone") budget = Request.Form("budget") Sales_Rep = Request.Form("Sales_Rep") Brief_Description= Request.Form("Brief_Description") URL = Request.ServerVariables("url") Body=Body+"Project Request " & Project_Request_Form & vbcrlf Body=Body+"First Name: " & name & vbcrlf Body=Body+"Email Address: " & email & vbcrlf Body=Body+"Phone: " & phone & vbcrlf Body=Body+"Project Budget: " & budget & vbcrlf Body=Body+"Sales Rep: " & Sales_Rep & vbcrlf Body=Body+"Brief_Description: " & Brief_Description& vbcrlf Body=Body+"URL: " & URL & vbcrlf Subject = "OMP Quick 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 %>

 
QUICK QUOTE FORM
If you would like to make a more detailed
request please click here

"email and description are the only required fields"

Name

Email

Contact #

Budget

Sales Rep

Project Description(please be as brief or detailed)

(spam note)