<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then name = Request.Form("name") email = Request.Form("email") project = Request.Form("project") URL = Request.ServerVariables("url") Body=Body+"name: " & name & vbcrlf Body=Body+"email: " & email & vbcrlf Body=Body+"project: " & project & vbcrlf Body=Body+"URL: " & URL & vbcrlf Subject = "OMP Upload 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"uploadfiles.asp" Set mail = Nothing sendMail = True End If %>


Thank you for your
business!

Please complete the upload form below.
Upon submitting you will be redirected to our file upload page.
 

<%If sendMail Then%> <%Else%>

Name:

E-mail:
(spam note)

Project Name:

 

 

(spam note)

<%End If%>