|
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/conceptlabs1/ |
Upload File : |
<%@ Language=VBScript %>
<%
Response.Codepage = 65001
Response.Charset = "utf-8"
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' DATE : April 27, 2023
' AGENCY : None
' AUTHORS : CONCEPT LABORATORIES INC. / Dennis R. Dunston
' NOTES : Receives form data and processes return email.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim error, justadd, justread, justwrite, newline, ok, str
Dim knt, f, emsg, r, o, c, other, html, html_end, txt, etxt
Dim greetings, regex
Dim error_txt, etext
Dim xfill
Dim vspc
Dim nlcr
Dim new_service
Dim whatisthis1
Dim htmlheader
Dim htmltail
Dim htmlsubject
Dim htmltitle
Dim str_html, html_txt
Dim html_txt_1
Dim str_services
Dim member_info
Dim txt_F_Allegations1
Dim txt_F_Telephone_type2
Dim fieldname
Dim region
Dim region_title
Dim region_email
Dim F_Race
Dim OFCCP_REGION_EMAIL
Dim REMOTE_HOST_NAME
Dim SENDER_EMAIL_ADDRESS
Dim EMAIL_TITLE_SUBJECT
Dim HTML_TITLE_SUBJECT
'----------------------------------------
' STEP 1 - Write in the name of your remote host name.
'----------------------------------------
REMOTE_HOST_NAME = "smtp.rcn.com"
'----------------------------------------
' STEP 2 - Write in the name of the email address who is sending the email.
'----------------------------------------
'TITLE_SUBJECT = "No Title"
EMAIL_TITLE_SUBJECT = "Federal Sales & Marketing Support"
SENDER_EMAIL_ADDRESS = "Helpdesk<[email protected]>"
HTML_TITLE_SUBJECT = "Federal Sales & Marketing Support" & "<br><br>"
OFCCP_REGION_EMAIL = "Federal Sales & Marketing Support<[email protected]>"
'----------------------------------------
' Initialize Parts/Sections
'----------------------------------------
tele_or_email = 0
address_or_city = 0
nlcr = chr(10) & chr(13)
region = 0
justadd = 8
justread = 1
justwrite = 2
error = 0
knt = 0
ok = 0
vspc = " "
part8 = ""
part9 = ""
greetings = ""
newline = vbCrLF
'newline = "\n"
hline = vbNewLine
emsg = ""
error_txt = ""
etext = ""
txt_F_Allegations1 = ""
F_Race = ""
str_html = ""
html_txt = ""
'----------------------------------------
'
'----------------------------------------
'F_Form_Language = Request.Form("Form_Language")
F_Form_Language = "English"
F_customername = Request.Form("customername")
F_email = Request.Form("email")
F_service = Request.Form("service")
F_service001 = Request.Form("service001")
F_service002 = Request.Form("service002")
F_service003 = Request.Form("service003")
F_service004 = Request.Form("service004")
F_message = Request.Form("message")
'----------------------------------------
' Process Services
'----------------------------------------
str_services=""
build_services(F_service001)
build_services(F_service002)
build_services(F_service003)
build_services(F_service004)
build_services(F_message)
str_services = trim(str_services)
if len(str_services) > 0 then
str_services = "<ol>" & str_services & "</ol>"
else
str_services = "<ol><li>No Services Requested</li></ol>"
end if
thankyou_English()
'Response.Write F_customername
'Response.Write F_email
'Response.Write F_service
'Response.Write F_service01
'Response.Write F_service02
'Response.Write F_message
'----------------------------------------
'
'----------------------------------------
Response.Write str_html
'####### # # # # # # # # # ####### # #
' # # # # # ## # # # # # # # # #
' # # # # # # # # # # # # # # # #
' # ####### # # # # # ### # # # # #
' # # # ####### # # # # # # # # # #
' # # # # # # ## # # # # # # #
' # # # # # # # # # # ####### #####
'-----------------------------------------------------------------------------------------------
' THANK YOU ENGLISH
'-----------------------------------------------------------------------------------------------
function thankyou_English()
str_html = ""
buildhtml("<!DOCTYPE html>")
buildhtml("<html lang='en'>")
'buildhtml("")
buildhtml("<head>")
buildhtml("<meta http-equiv='Content-type' content='text/html;charset=charset=UTF-8'/>")
buildhtml("<meta http-equiv='Content-Style-Type' content='text/css'>")
buildhtml("<meta name='format-detection' content='date=no'>")
buildhtml("<meta name='format-detection' content='telephone=no'>")
buildhtml("<meta http-equiv='X-UA-Compatible' content='IE=edge'>")
buildhtml("<meta name='viewport' content='width=device-width, initial-scale=1.0'>")
buildhtml("<meta name='color-scheme' content='light dark'>")
buildhtml("<meta name='supported-color-schemes' content='light dark'>")
buildhtml("</head>")
'buildhtml("")
buildhtml("<title>cli - Response Email</title>")
'buildhtml(" ")
'buildhtml("")
buildhtml("<style>")
buildhtml("table, th, td {")
buildhtml("<!--")
buildhtml("border:1px solid black;")
buildhtml("-->")
buildhtml("border-style:none;")
buildhtml("text-align:left;")
buildhtml("}")
buildhtml("</style>")
'buildhtml("")
'buildhtml("")
buildhtml("<body bgcolor='#cdcdcd'>")
'buildhtml("")
'buildhtml("")
buildhtml("<center>")
buildhtml("<table height='400px' bgcolor=white cellspacing='0' cellpadding='12' style='width:80%; font-family: arial,sans-serif; font-size: 11px'>")
buildhtml("<tr>")
buildhtml("<th colspan=2 style='height:30px; width:20%; vertical-align: center; text-align:right; font-size: 20px; background-color: black; color:white;'>")
buildhtml("ACKNOWLEDGMENT OR RESPONSE EMAIL")
buildhtml("</th>")
buildhtml("</tr>")
buildhtml(" <tr>")
buildhtml("<th style='width:20%; vertical-align: top; font-size: 20px; font-family: arial black,sans-serif;'>")
buildhtml("Receipt Acknowledgment")
buildhtml("</th>")
buildhtml("<th style='vertical-align: top; font-size: 12px'>")
buildhtml("<br>")
'buildhtml("Hi " & F_customername & " , " & F_email & ":")
buildhtml("Hi " & F_customername & " - " )
buildhtml("<br>")
buildhtml("<br>")
buildhtml("First of all, thank you for considering our services. <br><br> We acknowledge that the federal sales & marketing process requires additional support from time to time. We received your request and it is being reviewed by our support team. <br><br>If you have any additional questions or comments, feel free to call us directly.")
buildhtml("<br><br>")
buildhtml("Requested Services:<br>")
buildhtml(str_services)
buildhtml("<br>")
buildhtml("<br>")
buildhtml("<br>")
buildhtml("CONCEPT LABS INC.<br>Federal Sales & Marketing Support<br>")
buildhtml("<a href='mailto:[email protected]' target='_blank' class='icon fa-envelope-o'><span class='label'>[email protected]</span></a><br>")
buildhtml("(703) 217-0153<br>")
buildhtml("<br>")
'buildhtml("")
buildhtml("</th>")
buildhtml(" </tr>")
'buildhtml("")
buildhtml("</table>")
buildhtml("</center>")
buildhtml("</body>")
buildhtml("</html>")
end function
'----------------------------------------
' BUILD HTML FORM
'----------------------------------------
function buildhtml(html_txt_1)
str_html = str_html & html_txt_1 & newline
end function
'----------------------------------------
' BUILD Services
'----------------------------------------
function build_services(new_service)
new_service = trim(new_service)
if len(new_service) > 0 then
str_services = str_services & "<li>" & new_service & "</li>" & newline
end if
end function
%>