%
dim strHost
strHost = "jobe.net"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.Port = 25
Mail.From = Request ("Email")
Mail.AddAddress "support@jobe.net"
'Mail.AddCC ""
Mail.Subject = "JOBE Online Technical Inquiry"
Mail.Body = "Date/Time Submitted: " & Request("Date") & chr(13) & chr(10) & _
"
Last Name: " & Request("LastName") & chr(13) & chr(10) & _
"
First Name: " & Request("FirstName") & chr(13) & chr(10) & _
"
City: " & Request("City") & chr(13) & chr(10) & _
"
User Name: " & Request("UserName") & chr(13) & chr(10) & _
"
Daytime Phone Number: " & Request("Phone") & chr(13) & chr(10) & _
"
Email Address: " & Request("Email") & chr(13) & chr(10) & _
"
Support Issue: " & Request("Issue") & chr(13) & chr(10) & _
"
Operating System: " & Request("System") & chr(13) & chr(10) & _
"
Email Software: " & Request("EmailSoftware") & chr(13) & chr(10) & _
"
Modem Type: " & Request("ModemType") & chr(13) & chr(10) & _
"
Connection Speed: " & Request("Speed") & chr(13) & chr(10) & _
"
Network Components: " & Request("Components") & chr(13) & chr(10) & _
"
State the Problem: " & Request("Problem")
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Redirect("techinquiryconfirmation.htm")
End If
End If
%>
<% dim Date %>
|
|
|
||||
| Online
Tech Inquiry |
|||||
|
|||||