<%
If Request("SEND") <> "" Then
' Sets MailHost = Address of ViveNet SMTP server
MailHost = "mail.vivenet.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = MailHost
Mail.AddReplyTo "support@vivenet.com", "Customer Care" ' ReplyTo:
Mail.AddAddress Request("ToAddr"), Request("ToName") ' To:
' Bcc info if required
' Mail.AddBcc "foo@vivenet.com", "Full name here"
Mail.From = "support@vivenet.com" ' Return address here
Mail.FromName = "Vivenet, LLC" ' Return Name here
Mail.Subject = Request("Subject") ' Subject here
strBody = "Inquiry Data" & vbCrlf & vbCrlf
'***************************************************************
' Lazy way to read all form Data
' Note that data does not come out in the order (top to bottom)
' as written in the HTML.
'***************************************************************
for each Tag in request.form
If Left(Tag,4)="Var_" then
strBody = strBody & mid(Tag,5) & " = "
strBody = strBody & request.form(Tag) & vbCrLf
End If
NEXT ' Tag
'***************************************************************
' Or...
'
' You can read data from form explicitly;
'
' strBody = strBody & "Name = "
' strBody = strBody & request.form("Var_Name") & vbCrLf
' strBody = strBody & "Name = "
' strBody = strBody & request.form("Var_Address") & vbCrLf
' ... etc ...
'
' You can output data as one big row with each column separated
' by a TAB character, then copy the 2 rows of data to the clipboard
' and past into Excel for use as a simple data base. This can be
' used with Word Mail Merge for a newsletter or whatever.
'
' Or...
'
' You Can contact ViveNet and setup your Web Site with a SQL Data Base...
'
'***************************************************************
Mail.Body = strBody ' Body here
' finally: send message
Mail.Send
Set Mail = nothing ' Free this Object
%>
Business Opportunity