|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/abtechsci/ |
Upload File : |
<% @LANGUAGE = VBScript %>
<%Option Explicit %>
<%Response.Buffer = True %>
<html><head>
<title>Source: Customer Service Form</title>
</head>
<body bgcolor="#FFFFFF">
<%
Dim FName,LName,Title,Dept,Affil,Street,City,State,Zip,Country,Email,Phone,Fax,APPLICATIONS,DISCIPLINE,LITERATURE
Dim bText, Mailer,Msg, errorMsg, errorMsg2
FName = Trim(Request.Form("NAME1"))
LName = Trim(Request.Form("NAME2"))
Title = Trim(Request.Form("TITLE"))
Dept = Trim(Request.Form("DEPT"))
Affil = Trim(Request.Form("AFFIL"))
Street= Trim(Request.Form("STREET"))
City = Trim(Request.Form("CITY"))
State = Trim(Request.Form("STATE"))
Zip = Trim(Request.Form("ZIP"))
Country = Trim(Request.Form("COUNTRY"))
Email = Trim(Request.Form("EMAIL"))
Phone = Trim(Request.Form("PHONE"))
Fax = Trim(Request.Form("FAX"))
APPLICATIONS = Trim(Request.Form("APPLICATIONS"))
DISCIPLINE = Trim(Request.Form("DISCIPLINE"))
LITERATURE = Trim(Request.Form("LITERATURE"))
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
bText="Customer entered the following information:" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
bText=bText & FName & Chr(13) & Chr(10)
bText=bText & LName & Chr(13) & Chr(10)
bText=bText & Title & Chr(13) & Chr(10)
bText=bText & Dept & Chr(13) & Chr(10)
bText=bText & Affil
bText=bText & Street
bText=bText & City & Chr(13) & Chr(10)
bText=bText & State & Chr(13) & Chr(10)
bText=bText & Zip & Chr(13) & Chr(10)
bText=bText & Country & Chr(13) & Chr(10)
bText=bText & Email & Chr(13) & Chr(10)
bText=bText & Phone & Chr(13) & Chr(10)
bText=bText & Fax & Chr(13) & Chr(10)
bText=bText & APPLICATIONS & Chr(13) & Chr(10)
bText=bText & DISCIPLINE & Chr(13) & Chr(10)
bText=bText & LITERATURE & Chr(13) & Chr(10)
Mailer.BodyText = bText
Mailer.FromName ="CSForm"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient "Anthony Guiseppi-Elie", "[email protected]"
Mailer.AddCC "Adilah Guisepp-Wilson", "[email protected]"
Mailer.RemoteHost = "mail.rcn.com"
Mailer.Subject = "Customer Service Request"
Mailer.BodyText = bText
If Mailer.SendMail then
Response.Redirect "http://www.abtechsci.com/index"
Else
Msg = "Your form was not submitted. Please click the back button and try submitting the form later"&"<br>"
response.write Msg
End If
Set Mailer=nothing
%>
</body>
</html>