|
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/assets/fonts/ |
Upload File : |
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Freeware from Seiretto.com
' available at http://asp.thedemosite.co.uk
' DON'T forget to change the mail_to email address below!!!
' and thats all you need to change.
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim error, justadd, justread, justwrite, newline, ok
Dim knt, f, emsg, mail_to, r, o, c, other, html, html_end, txt, etxt
Dim greetings, part1, part2, part3, str_html
Dim member_info, checkbox_service
justadd = 8
justread = 1
justwrite = 2
error = 0
knt = 0
ok = 0
mail_to = "[email protected]"
part1 = ""
part2 = ""
greetings = ""
nl = ", "
nlcr = chr(10) & chr(13)
newline = vbCrLF
hline = vbNewLine
emsg = ""
checkbox_service = ""
'For Each f In Request.Form
' If Request.Form(f) = "" Then
' error = 0
' End If
'Next
'----------------------------------------
' 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 = "cli - Federal Sales & Marketing Support"
SENDER_EMAIL_ADDRESS = "[email protected]"
HTML_TITLE_SUBJECT = "Federal Sales & Marketing Support" & "<br><br>"
'----------------------------------------
'
'----------------------------------------
'F_Form_Language = Request.Form("Form_Language")
F_Form_Language = "English"
F_service_description = Request.Form("service_description")
F_name = Request.Form("name")
F_email = Request.Form("email")
F_m01 = Request.Form("m01")
F_m02 = Request.Form("m02")
F_m03 = Request.Form("m03")
F_m04 = Request.Form("m04")
F_m05 = Request.Form("m05")
F_m06 = Request.Form("m06")
F_m07 = Request.Form("m07")
F_m08 = Request.Form("m08")
F_m09 = Request.Form("m09")
F_m10 = Request.Form("m10")
F_m11 = Request.Form("m11")
F_m12 = Request.Form("m12")
F_m13 = Request.Form("m13")
F_m14 = Request.Form("m14")
F_m15 = Request.Form("m15")
F_m16 = Request.Form("m16")
F_m17 = Request.Form("m17")
F_m18 = Request.Form("m18")
F_m19 = Request.Form("m19")
F_m20 = Request.Form("m20")
F_m21 = Request.Form("m21")
F_m22 = Request.Form("m22")
F_m23 = Request.Form("m23")
F_m24 = Request.Form("m24")
F_m25 = Request.Form("m25")
F_m26 = Request.Form("m26")
F_m27 = Request.Form("m27")
F_m28 = Request.Form("m28")
F_m29 = Request.Form("m29")
F_m30 = Request.Form("m30")
F_m31 = Request.Form("m31")
F_m32 = Request.Form("m32")
F_m33 = Request.Form("m33")
F_m34 = Request.Form("m34")
F_m35 = Request.Form("m35")
F_m36 = Request.Form("m36")
F_m37 = Request.Form("m37")
F_m38 = Request.Form("m38")
F_m39 = Request.Form("m39")
F_m40 = Request.Form("m40")
F_m41 = Request.Form("m41")
F_service = Request.Form("service")
F_message = Request.Form("message")
str_html = "no values yet"
if (F_m01 <> "") then checkbox_service = checkbox_service & F_m01 & nl
if (F_m02 <> "") then checkbox_service = checkbox_service & F_m02 & nl
if (F_m03 <> "") then checkbox_service = checkbox_service & F_m03 & nl
if (F_m04 <> "") then checkbox_service = checkbox_service & F_m04 & nl
if (F_m05 <> "") then checkbox_service = checkbox_service & F_m05 & nl
if (F_m06 <> "") then checkbox_service = checkbox_service & F_m06 & nl
if (F_m07 <> "") then checkbox_service = checkbox_service & F_m07 & nl
if (F_m08 <> "") then checkbox_service = checkbox_service & F_m08 & nl
if (F_m09 <> "") then checkbox_service = checkbox_service & F_m09 & nl
if (F_m10 <> "") then checkbox_service = checkbox_service & F_m10 & nl
if (F_m11 <> "") then checkbox_service = checkbox_service & F_m11 & nl
if (F_m12 <> "") then checkbox_service = checkbox_service & F_m12 & nl
if (F_m13 <> "") then checkbox_service = checkbox_service & F_m13 & nl
if (F_m14 <> "") then checkbox_service = checkbox_service & F_m14 & nl
if (F_m15 <> "") then checkbox_service = checkbox_service & F_m15 & nl
if (F_m16 <> "") then checkbox_service = checkbox_service & F_m16 & nl
if (F_m17 <> "") then checkbox_service = checkbox_service & F_m17 & nl
if (F_m18 <> "") then checkbox_service = checkbox_service & F_m18 & nl
if (F_m19 <> "") then checkbox_service = checkbox_service & F_m19 & nl
if (F_m20 <> "") then checkbox_service = checkbox_service & F_m20 & nl
if (F_m21 <> "") then checkbox_service = checkbox_service & F_m21 & nl
if (F_m22 <> "") then checkbox_service = checkbox_service & F_m22 & nl
if (F_m23 <> "") then checkbox_service = checkbox_service & F_m23 & nl
if (F_m24 <> "") then checkbox_service = checkbox_service & F_m24 & nl
if (F_m25 <> "") then checkbox_service = checkbox_service & F_m25 & nl
if (F_m26 <> "") then checkbox_service = checkbox_service & F_m26 & nl
if (F_m27 <> "") then checkbox_service = checkbox_service & F_m27 & nl
if (F_m28 <> "") then checkbox_service = checkbox_service & F_m28 & nl
if (F_m29 <> "") then checkbox_service = checkbox_service & F_m29 & nl
if (F_m30 <> "") then checkbox_service = checkbox_service & F_m30 & nl
if (F_m31 <> "") then checkbox_service = checkbox_service & F_m31 & nl
if (F_m32 <> "") then checkbox_service = checkbox_service & F_m32 & nl
if (F_m33 <> "") then checkbox_service = checkbox_service & F_m33 & nl
if (F_m34 <> "") then checkbox_service = checkbox_service & F_m34 & nl
if (F_m35 <> "") then checkbox_service = checkbox_service & F_m35 & nl
if (F_m36 <> "") then checkbox_service = checkbox_service & F_m36 & nl
if (F_m37 <> "") then checkbox_service = checkbox_service & F_m37 & nl
if (F_m38 <> "") then checkbox_service = checkbox_service & F_m38 & nl
if (F_m39 <> "") then checkbox_service = checkbox_service & F_m39 & nl
if (F_m40 <> "") then checkbox_service = checkbox_service & F_m40 & nl
if (F_m41 <> "") then checkbox_service = checkbox_service & F_m41 & nl
if (F_service_description = "2") and (checkbox_service <> "") then
F_service = mid(checkbox_service,1,len(checkbox_service)-2)
end if
'Response.Write "F_service:" & F_service
'----------------------------------------
'
'----------------------------------------
if (check_form_data()) then
prepare_email_English()
'Response.Write str_html
send_email()
'Response.Write "good vales..."
else
Response.Write str_html
end if
'----------------------------------------
' FORM SECTIONS
'----------------------------------------
'----------------------------------------
' CHECK FORM DATA
'----------------------------------------
function check_form_data()
str_html = ""
html_txt = ""
if (F_name = "") or (F_email = "") or (F_service = "") or (F_message = "") then
str_html = ""
htmlsubject = EMAIL_TITLE_SUBJECT
htmltitle = HTML_TITLE_SUBJECT
buildhtml("<!DOCTYPE html>")
buildhtml("<html lang='en'>")
buildhtml("<head>")
buildhtml("<title>")
buildhtml(EMAIL_TITLE_SUBJECT)
buildhtml("</title>")
buildhtml("<meta http-equiv='Content-type' content='text/html;charset=UTF-8'>")
buildhtml("<meta http-equiv='Content-Style-Type' content='text/css'>")
buildhtml("<meta name='generator' content=''>")
buildhtml("<meta name='viewport' content='width=device-width, initial-scale=1'>")
buildhtml("<style>")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { font-family: Tahoma, Arial, verdana, sans-serif;}")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { color:black; font-weight:normal; line-height:120%;}")
buildhtml("h1 { text-align:left;}")
buildhtml("h2 { text-align:left;}")
buildhtml("h3 { text-align:left;}")
buildhtml("h4 { text-align:right;}")
buildhtml("td { text-align:left;}")
buildhtml("th { text-align:left;}")
buildhtml("ol { text-align:left;}")
buildhtml("li { text-align:left;}")
buildhtml("u { text-align:right;}")
buildhtml("a { font-size: 11.5px;}")
buildhtml("h1 { font-size: 18px;}")
buildhtml("h2 { font-size: 13px;}")
buildhtml("h3 { font-size: 11.5px;}")
buildhtml("h4 { font-size: 11px;}")
buildhtml("td { font-size: 11.5px;}")
buildhtml("th { font-size: 11.5px;}")
buildhtml("ol { font-size: 11.5px;}")
buildhtml("li { font-size: 11.5px;}")
buildhtml("u { font-size: 11.5px;}")
buildhtml("p { font-size: 11.5px;}")
buildhtml("h1, h2, h3, h4 {margin:0; padding:0;}")
buildhtml("td { vertical-align: top; text-align:left;}")
buildhtml("th { vertical-align: top; text-align:left;}")
buildhtml("h4 {margin-top:7px;}")
buildhtml("h1 {color:black;}")
buildhtml("h4 {color:lightgray;}")
buildhtml("</style>")
buildhtml("</head>")
buildhtml("<body bgcolor='#e8e9ed'>")
buildhtml("<table height='95%' width='90%' bgcolor='#ffffff' border=0 cellspacing='0' cellpadding='20' align='center' cols=1>")
buildhtml("<!------------------------")
buildhtml("FORM TITLE")
buildhtml("------------------------->")
buildhtml("<tr>")
buildhtml("<td>")
buildhtml("<h1>Please retype the following form fields:</h1>")
buildhtml("<br>")
buildhtml("<hr>")
buildhtml("<ul>")
if (F_name = "" ) then buildhtml("<li>Name</li>")
if (F_email = "" ) then buildhtml("<li>Email</li>")
if (F_service = "" ) then buildhtml("<li>Service</li>")
if (F_message = "" ) then buildhtml("<li>Brief message</li>")
buildhtml("</ul>")
buildhtml("<br>")
buildhtml("<hr>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("<tr bgcolor='black'>")
buildhtml("<td>")
buildhtml("<h4>")
buildhtml("<div align=right>")
buildhtml("<b>cli</b><br>")
buildhtml("Concept Labs Inc.<br>")
buildhtml("5375 Duke Street Suite 1010<br>")
buildhtml("Alexandria, VA 22304<br>")
buildhtml("Tel: (703) 217-0153<br><br>")
buildhtml("</h4>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("</table>")
buildhtml("</body>")
buildhtml("</html>")
check_form_data = false
else
check_form_data = true
end if
end function
'----------------------------------------
' SEND EMAIL
'----------------------------------------
function send_email()
html = ""
knt = 0
txt = ""
'----------------------------------------
'
'----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Concept Labs Inc. (cli)"
Mailer.FromAddress = SENDER_EMAIL_ADDRESS
Mailer.RemoteHost = REMOTE_HOST_NAME
Mailer.AddRecipient "Help Desk", "[email protected]"
Mailer.AddRecipient F_name, F_email
Mailer.Subject = EMAIL_TITLE_SUBJECT
Mailer.BodyText = str_html
Mailer.ContentType = "text/html"
if Mailer.SendMail then
'Response.Write "Mail sent...<br><br>"
else
'Response.Write "Mail send failure. Error was " & Mailer.Response
end if
thankyou_email_English()
Response.Write str_html
'response.redirect "a_thanks.html"
end function
'###### ###### ####### ###### # ###### ####### ####### # # # ### #
'# # # # # # # # # # # # # ## ## # # # #
'# # # # # # # # # # # # # # # # # # # # #
'###### ###### ##### ###### # # ###### ##### ##### # # # # # # #
'# # # # # ####### # # # # # # ####### # #
'# # # # # # # # # # # # # # # # #
'# # # ####### # # # # # ####### ####### # # # # ### #######
'----------------------------------------
' PREPARE ENGLISH
'----------------------------------------
function prepare_email_English()
str_html = ""
html_txt = ""
htmlsubject = EMAIL_TITLE_SUBJECT
htmltitle = HTML_TITLE_SUBJECT
buildhtml("<!DOCTYPE html>")
buildhtml("<html lang='en'>")
buildhtml("<head>")
buildhtml("<title>")
buildhtml(EMAIL_TITLE_SUBJECT)
buildhtml("</title>")
buildhtml("<meta http-equiv='Content-type' content='text/html;charset=UTF-8'>")
buildhtml("<meta http-equiv='Content-Style-Type' content='text/css'>")
buildhtml("<meta name='generator' content=''>")
buildhtml("<meta name='viewport' content='width=device-width, initial-scale=1'>")
buildhtml("<style>")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { font-family: Tahoma, Arial, verdana, sans-serif;}")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { color:black; font-weight:normal; line-height:120%;}")
buildhtml("h1 { text-align:left;}")
buildhtml("h2 { text-align:left;}")
buildhtml("h3 { text-align:left;}")
buildhtml("h4 { text-align:right;}")
buildhtml("td { text-align:left;}")
buildhtml("th { text-align:left;}")
buildhtml("ol { text-align:left;}")
buildhtml("li { text-align:left;}")
buildhtml("u { text-align:right;}")
buildhtml("a { font-size: 11.5px;}")
buildhtml("h1 { font-size: 18px;}")
buildhtml("h2 { font-size: 13px;}")
buildhtml("h3 { font-size: 11.5px;}")
buildhtml("h4 { font-size: 11px;}")
buildhtml("td { font-size: 11.5px;}")
buildhtml("th { font-size: 11.5px;}")
buildhtml("ol { font-size: 11.5px;}")
buildhtml("li { font-size: 11.5px;}")
buildhtml("u { font-size: 11.5px;}")
buildhtml("p { font-size: 11.5px;}")
buildhtml("h1, h2, h3, h4 {margin:0; padding:0;}")
buildhtml("td { vertical-align: top; text-align:left;}")
buildhtml("th { vertical-align: top; text-align:left;}")
buildhtml("h4 {margin-top:7px;}")
buildhtml("h1 {color:black;}")
buildhtml("h4 {color:lightgray;}")
buildhtml("</style>")
buildhtml("</head>")
buildhtml("<body bgcolor='#e8e9ed'>")
buildhtml("<table height='95%' width='90%' bgcolor='#ffffff' border=0 cellspacing='0' cellpadding='20' align='center' cols=1>")
buildhtml("<!------------------------")
buildhtml("FORM TITLE")
buildhtml("------------------------->")
buildhtml("<tr>")
buildhtml("<td>")
buildhtml("<p>")
buildhtml("<h1>RESPONSE EMAIL</h1>")
buildhtml("<br>")
buildhtml("<hr>")
buildhtml(F_name)
buildhtml("<br>")
buildhtml(F_email)
buildhtml("<br><br>")
buildhtml("Good day.")
buildhtml("<br><br>")
buildhtml("We received an email request for (" + F_service + ") with the following message (" + F_message + ")." )
buildhtml("<br><br>")
buildhtml("<hr>")
buildhtml("<div align=right>")
buildhtml("We shall reply shortly.")
buildhtml("<br><br>")
buildhtml("- Help Desk")
buildhtml("<br>")
buildhtml("</div>")
buildhtml("<p>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("<tr bgcolor='black'>")
buildhtml("<td>")
buildhtml("<h4>")
buildhtml("<div align=right>")
buildhtml("<b>cli</b><br>")
buildhtml("Concept Labs Inc.<br>")
buildhtml("5375 Duke Street Suite 1010<br>")
buildhtml("Alexandria, VA 22304<br>")
buildhtml("Tel: (703) 217-0153<br><br>")
buildhtml("</h4>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("</table>")
buildhtml("</body>")
buildhtml("</html>")
end function
'----------------------------------------
' THANKYOU ENGLISH
'----------------------------------------
function thankyou_email_English()
str_html = ""
html_txt = ""
htmlsubject = EMAIL_TITLE_SUBJECT
htmltitle = HTML_TITLE_SUBJECT
buildhtml("<!DOCTYPE html>")
buildhtml("<html lang='en'>")
buildhtml("<head>")
buildhtml("<title>")
buildhtml(EMAIL_TITLE_SUBJECT)
buildhtml("</title>")
buildhtml("<meta http-equiv='Content-type' content='text/html;charset=UTF-8'>")
buildhtml("<meta http-equiv='Content-Style-Type' content='text/css'>")
buildhtml("<meta name='generator' content=''>")
buildhtml("<meta name='viewport' content='width=device-width, initial-scale=1'>")
buildhtml("<style>")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { font-family: Tahoma, Arial, verdana, sans-serif;}")
buildhtml("body, a, h1, h2, h3, h4, ul, ol, li, p, label, td, th, u { color:black; font-weight:normal; line-height:120%;}")
buildhtml("h1 { text-align:left;}")
buildhtml("h2 { text-align:left;}")
buildhtml("h3 { text-align:left;}")
buildhtml("h4 { text-align:right;}")
buildhtml("td { text-align:left;}")
buildhtml("th { text-align:left;}")
buildhtml("ol { text-align:left;}")
buildhtml("li { text-align:left;}")
buildhtml("u { text-align:right;}")
buildhtml("a { font-size: 11.5px;}")
buildhtml("h1 { font-size: 18px;}")
buildhtml("h2 { font-size: 13px;}")
buildhtml("h3 { font-size: 11.5px;}")
buildhtml("h4 { font-size: 11px;}")
buildhtml("td { font-size: 11.5px;}")
buildhtml("th { font-size: 11.5px;}")
buildhtml("ol { font-size: 11.5px;}")
buildhtml("li { font-size: 11.5px;}")
buildhtml("u { font-size: 11.5px;}")
buildhtml("p { font-size: 11.5px;}")
buildhtml("h1, h2, h3, h4 {margin:0; padding:0;}")
buildhtml("td { vertical-align: top; text-align:left;}")
buildhtml("th { vertical-align: top; text-align:left;}")
buildhtml("h4 {margin-top:7px;}")
buildhtml("h1 {color:black;}")
buildhtml("h4 {color:lightgray;}")
buildhtml("</style>")
buildhtml("</head>")
buildhtml("<body bgcolor='#e8e9ed'>")
buildhtml("<table height='95%' width='90%' bgcolor='#ffffff' border=0 cellspacing='0' cellpadding='20' align='center' cols=1>")
buildhtml("<!------------------------")
buildhtml("FORM TITLE")
buildhtml("------------------------->")
buildhtml("<tr>")
buildhtml("<td>")
buildhtml("<p>")
buildhtml("<h1>THANK YOU!</h1>")
buildhtml("<br>")
buildhtml("<hr>")
buildhtml("Check out our other services:")
buildhtml("<br><br>")
buildhtml("<hr>")
buildhtml("<div align=right>")
buildhtml("We shall reply shortly.")
buildhtml("<br><br>")
buildhtml("- Help Desk")
buildhtml("<br>")
buildhtml("</div>")
buildhtml("<p>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("<tr bgcolor='black'>")
buildhtml("<td>")
buildhtml("<h4>")
buildhtml("<div align=right>")
buildhtml("<b>cli</b><br>")
buildhtml("Concept Labs Inc.<br>")
buildhtml("5375 Duke Street Suite 1010<br>")
buildhtml("Alexandria, VA 22304<br>")
buildhtml("Tel: (703) 217-0153<br><br>")
buildhtml("</h4>")
buildhtml("</td>")
buildhtml("</tr>")
buildhtml("</table>")
buildhtml("</body>")
buildhtml("</html>")
end function
'----------------------------------------
' Pad values with blanks
'----------------------------------------
function padd(fieldname,fieldlength)
xfill = " "
padd = "<pre style='display:inline; margin:0;'><u> " & mid(fieldname & xfill,1,fieldlength) & " </u></pre>"
end function
'----------------------------------------
' BUILD HTML FORM
'----------------------------------------
function buildhtml(html_txt_1)
str_html = str_html & html_txt_1 & newline
end function
%>