<%@ Language="VBScript" %>
<% Option Explicit %>
<%
if Request.Form("Submit") = "" then
Response.Redirect(index.php)
else
dim xConnection, xSQL, xConnString, xEmailString, myMail
dim xsubmitted_by
dim xsubmitted_by_email
dim xtraveling_to
dim xdates_of_travel
xsubmitted_by = Request.Form("submitted_by")
xsubmitted_by_email = Request.Form("submitted_by_email")
xtraveling_to = Request.Form("traveling_to")
xdates_of_travel = Request.Form("dates_of_travel")
xEmailString = "AutoCAD License Request:
" _
& "Requested by: " & xsubmitted_by _
& "
Email of Submitter: " & xsubmitted_by_email _
& "
Traveling to: " & xtraveling_to _
& "
Dates of Travel: " & xdates_of_travel _
& "
"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="AutoCAD License Request - " & xsubmitted_by
myMail.From= xsubmitted_by_email
myMail.To="Ben@example.com"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="IP Address"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.HTMLBody = xEmailString
myMail.Send
set myMail=nothing
end if
%>
AutoCAD License Request
Dear <% Response.Write(xsubmitted_by) %>,
Thank you for sending us your Information. A Tracker Ticket will now be prepared regarding this matter. At that time an E-Mail notification will be sent to you updating you on the status of the Ticket.
Sincerely,
Ben
AutoCAD License Request
Return to Example.exp
The field of Information Technology is managed centrally by the Information
Systems department for all of Example.
The Support Center
can be reached at any time
@ 1-800-555-5555