|
| |
|
<%
'Easy CGI Form for sending email via ASPEmail
'Change these values to test the form
'-------------------------------------
Dim toAddress, subject
toAddress = "twilliams@tcgamerica.com, sales@tcgamerica.com"
subject = "Microsoft Big Easy Offer inquiry"
'-------------------------------------
'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 Inquiry: " & 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 & _
"Entree: " & request.form("LunchSelection") & 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 your inquiry!"
End If
Else
'if the form was not submitted then output the form html
%>
The
BigEasy Offer 3.0
The Big Easy Offer gives you choices on
Microsoft products and solutions that fit your needs. For every
qualifying product you purchase, Microsoft pays you partner
subsidy funds that can be used with TCG America to help with the
implementation of your Microsoft solution including software,
hardware and services.
 Go
to BigEasy Website
Please
fill out short form below and we will contact you shortly.
Program ends January 2, 2010
|
|
Sign up for Big Easy 3.0 |
<%
End If
%>
|
|
|
