<% 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 Reseller Form - Facebook" 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") = cdoSendUsingPort 'Name or IP of Remote SMTP Server MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous 'Server port (typically 25) MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 MyMail.Configuration.Fields.Update '==End remote SMTP server configuration section== myMail.From=FromAddress myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"default.asp" Set mail = Nothing sendMail = True End If %>


Fill out the below form for more
information regarding our reseller program

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