|
| |
|
<%
'Easy CGI Form for sending email via ASPEmail
'Change these values to test the form
'-------------------------------------
Dim toAddress, subject
toAddress = "sales@tcgamerica.com"
subject = "Inquiry from the TCGAmerica.com website"
'-------------------------------------
'Check to see if the form was submitted
if request.form("submit") <> "" Then
'if it was then send the email
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mx1.tcgamerica.com" ' Specify a valid SMTP server
Mail.From = request.form("email") ' Specify sender's address
Mail.FromName = request.form("email") ' Specify sender's name
Mail.AddAddress toAddress
Mail.AddReplyTo request.form("email")
Mail.Subject = subject
'Add the form fields to the message body
Mail.Body = "TCG America Website Form Submission: " & vbcrlf & _
"------------------------" & vbcrlf & vbcrlf & _
"First name: " & request.form("fname") & vbcrlf & vbcrlf & _
"Last name: " & request.form("lname") & vbcrlf & vbcrlf & _
"Company: " & request.form("company") & vbcrlf & vbcrlf & _
"Product or Service: " & request.form("productservice") & vbcrlf & vbcrlf & _
"Email: " & request.form("email") & vbcrlf & vbcrlf & _
"Phone: " & request.form("phone") & vbcrlf & vbcrlf & _
"Comments: " & request.form("comments") & vbcrlf
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Write "Thank you for submitting your information! We will contact you shortly."
End If
Else
'if the form was not submitted then output the form html
%>Quick request for information, quote,
assessment or service
Thanks for your interest in TCG America.
We provide enterprise level SMB technology products, services and support.
Our partners include Microsoft,
Cisco, Barracuda Networks, Citrix, McAfee, APC, Symantec, Kaspersky,
Linksys, Castelle, Hewlett Packard, Xerox and more.
|
Fill out the short form below, and we will contact
you shortly.
(your information will remain private and is
not shared with any 3rd parties) |
<%
End If
%>
|
|
|
