|
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/efusion1/ |
Upload File : |
<%@LANGUAGE="VBSCRIPT"%>
<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
' Version 1.1.8
'******************************
Dim dwzValidator_0
Set dwzValidator_0 = new dwzServerSideValidator
dwzValidator_0.SetFormName "form1"
dwzValidator_0.SetMainMessage "The form contains errors or is incomplete"
dwzValidator_0.SetCodeBefore ""
dwzValidator_0.SetCodeAfter ""
dwzValidator_0.SetClassName "errorMsg"
dwzValidator_0.SetJsAlert "Y"
dwzValidator_0.SetReturnMethod "POST"
dwzValidator_0.SetImageError "/assets/error.gif"
dwzValidator_0.SetRedirect "", "1"
dwzValidator_0.init()
dwzValidator_0.add "OtherNeedsDetails", "textarea", "No", "Any", "1,255,Y", "Please limit your message to 255 characters and remove any html."
dwzValidator_0.add "Name_First", "text", "Yes", "Alphabetic", ",", "The field ''Name_First'' is not valid"
dwzValidator_0.add "Name_Last", "text", "Yes", "Alphabetic", ",", "The field ''Name_Last'' is not valid"
dwzValidator_0.add "Job_Title", "text", "Yes", "Alphanumeric", ",", "The field ''Job_Title'' is not valid"
dwzValidator_0.add "Company", "text", "Yes", "Alphanumeric", ",", "The field ''Company'' is not valid"
dwzValidator_0.add "Phone", "text", "Yes", "Any", ",", "The field ''Phone'' is not valid"
dwzValidator_0.add "Email", "text", "Yes", "Mail", ",", "The field ''Email'' is not valid"
dwzValidator_0.add "captchaText", "text", "Yes", "Compare,2,CAPTCHA", ",", "Please enter the matching values."
dwzValidator_0.validate()
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
' End code
'******************************
'*********************************
'* http://www.DwZone-it.com
'* ADVANCED MAIL
'* Version 2.3.9
'* Without Upload Files
'*********************************
dim AdvMailUpload
AdvMailUpload = "yes"
server.ScriptTimeout = 5400
Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, FileMatch
Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, RG_typeArray, RG_z, UploadStatus, NumFile, RG_MailParameter
Dim OnLoadStart,ProgressMail,RG_BodyText,BodyFromFile,ImagesList,FilesList,StrSql,ReplaceList,sendAllFilesInFolder,sendAllFilesType,Rs,Parametri,SendMailID,Risposta,Cong,TotalMail,NumMail,TimeStart,Mailer,MailPar_1,MailPar_2,MailPar_3,MailPar_4,MailPar_5,FromName,FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message,Cc,Bcc,Comando,Conn,Fs,TempFolder,TempFileName,retStr,Risp,IsMailSend,newPage,ListToReplace,valori,ListFile,Folder,File,ListImage,UploadID,StatusFile,NewFileName,VerLen,VerExt,ItemCounter,Ris,FileToDelete,separ,ThisPage,tmpFile,LineaFile
Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, ParamVal_AdvMail, TotalFileSize, NoSendFileExceed, UploadMailError, valueToRedirectSend, MaxFieldNumberAdv, newPassword
OnLoadStart = "0"
ProgressBar = ""
ProgressMail = ""
editRedirectUrl = "contact-thanks.asp"
RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@/"
RG_formName = "form1"
RG_MailParameter = "3@@@_@@@_@@@smtp.rcn.com@@@_@@@_@@@25@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@FUSION@@@_@@@_@@@[email protected]@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Name_First@_form_@ Name_Last@_form_@@@@_@@@_@@@Email@_form_@@@@_@@@_@@@ @@@_@@@_@@@[email protected],[email protected]@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@Thank You for Contacting FUSION@@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@0@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@captchaText@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@"
RG_BodyText = " "
BodyFromFile = "/contact-email.asp"
UploadType = "AdvancedMail"
ImagesList = ""
FilesList = ""
RG_Connection = MM_Void_STRING
ReplaceList = "#captchaText#;captchaText@_form_@|#Company#;Company@_form_@|#dwzServerValidate#;dwzServerValidate@_form_@|#Email#;Email@_form_@|#Job_Title#;Job_Title@_form_@|#Name_First#;Name_First@_form_@|#Name_Last#;Name_Last@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#Needs#;Needs@_form_@|#OtherNeedsDetails#;OtherNeedsDetails@_form_@|#Phone#;Phone@_form_@"
sendAllFilesInFolder = ""
sendAllFilesType = 0
UploadStatus = ""
NumFile = 0
if OnLoadStart = "-1" then
StrSql = ""
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
else
if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
End If
if request.Form("DW_Form_Name") = "form1" then
StrSql = ""
verifyUserExists()
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
End If
End If
%>
<!--#include virtual="/Connections/Void.asp" -->
<!--#include file="Connections/Void.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Contact FUSION</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="/esfusion.css" rel="stylesheet" type="text/css">
<script src="/SpryAssets/SpryMenuBar.js" type="text/javascript"></script>
<link href="/SpryAssets/SpryMenuBarHorizontal.css" rel="stylesheet" type="text/css" />
</head>
<body bgcolor="#ffffff"><table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="/assets/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="225" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="7" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="30" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="18" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="71" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="78" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="9" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="43" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="64" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="37" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="64" height="1" border="0" alt=""></td>
<td><img src="/assets/spacer.gif" width="14" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="18" valign="top"><img src="/assets/apples.jpg" alt="apples" align="right" width="85" height="47" hspace="4" vspace="4" border="0"><img src="/assets/logo.gif" alt="FUSION (tm)" name="logo" width="220" height="47" border="0" align="top"><br>
<img src="/assets/tagline.gif" alt="Helping education companies teach better and sell more." name="tagline" width="485" height="17" hspace="10" vspace="6" border="0" align="texttop"><br>
<div align="right"> <img src="/assets/red.gif" alt="" width="720" height="1" hspace="4" vspace="2"><br>
</div></td>
</tr>
<tr>
<td width="10" align="left" valign="top"> </td>
<td rowspan="2" align="left" valign="top"><br>
<p><span class="h4">FUSION</span><br>
31 Atkinson Lane <br>
Sudbury, MA 01776 <br>
PH: (978) 443-5943 <br>
FX: (978) 443-3316 <a href="mailto:[email protected]">[email protected]</a> </p>
<p><br>
</p>
<h3> </h3>
</td>
<td> </td>
<td colspan="15" align="left" valign="top" bgcolor="#FFFFFF" >
<!--#include virtual="/incl.dropmenus.html" -->
<br>
<br></td>
</tr>
<tr>
<td align="left" valign="top"><img src="/assets/spacer.gif" alt="" width="10" height="100"></td>
<td background="/assets/dots-vert.gif"><img src="assets/spacer.gif" width="20" height="100"></td>
<td colspan="14" align="left" valign="top" bgcolor="#FFFFFF" ><h1>Contact FUSION</h1>
<p>We’re always delighted to discuss potential projects, and there’s no fee or obligation for a preliminary consultation. Please indicate the nature of your need(s) as best you are able <b>(check as many as apply):</b></p>
<form action="<%=editAction%>" method="POST" name="form1" id="form1" onSubmit="return ProgressBar()">
<%dwzValidator_0.getSummary()%>
<p>
<input name="Needs" type="checkbox" id="Needs01" value=" Strategic and business planning">
Strategic and business planning<br>
<input name="Needs" type="checkbox" id="Needs02" value=" New venture assessment">
New venture assessment <br>
<input name="Needs" type="checkbox" id="Needs03" value=" New product launch">
New product launch <br>
<input name="Needs" type="checkbox" id="Needs04" value=" Market and competitive research">
Market and competitive research <br>
<input name="Needs" type="checkbox" id="Needs05" value=" Media advertising (print or online)">
Media advertising (print or online)<br>
<input name="Needs" type="checkbox" id="Needs06" value=" Sales lead generation (mail, e-mail, paid search)">
Sales lead generation (mail, e-mail, paid search)<br>
<input name="Needs" type="checkbox" id="Needs07" value=" Website development/optimization">
Website development / optimization<br>
<input name="Needs" type="checkbox" id="Needs08" value=" Pricing, volume purchase plans, licensing">
Pricing, volume purchase plans, licensing<br>
<input name="Needs" type="checkbox" id="Needs09" value=" Event promotion (paid or showcase events and Webinars)">
Event promotion (paid or showcase events and Webinars) <br>
<input name="Needs" type="checkbox" id="Needs10" value=" Brand identity and/or value proposition development">
Brand identity and/or value proposition development <br>
<input name="Needs" type="checkbox" id="Needs11" value=" Collateral and sales promotion">
Collateral and sales promotion <br>
<input name="Needs" type="checkbox" id="Needs12" value=" Teleselling and indirect channels">
Teleselling and indirect channels</p>
<p> <b>Questions, other needs, project particulars:</b><br>
</p>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="99" align="right" NOWRAP> </td>
<td width="323">
<p>
<textarea name="OtherNeedsDetails" id="OtherNeedsDetails" cols="28" rows="4"><%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
' TextArea Form Field
'******************************
response.write(dwzValidator_0.getFieldValue(cStr(Request.Form("OtherNeedsDetails")),"OtherNeedsDetails","form1"))
%></textarea>
<%dwzValidator_0.getImageErrMsg("OtherNeedsDetails")%>
</p>
</td>
</tr>
<tr>
<td align="right" valign="top" NOWRAP><b>First Name </b></td>
<td valign="top"><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Name_First","form1"))
%>" name="Name_First" type="text" id="Name_First" size="30" maxlength="50">
<%dwzValidator_0.getImageErrMsg("Name_First")%>
<br> </td>
</tr>
<tr>
<td align="right" valign="top"><b>Last Name </b></td>
<td valign="top"><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Name_Last","form1"))
%>" name="Name_Last" type="text" id="Name_Last" size="30" maxlength="50">
<%dwzValidator_0.getImageErrMsg("Name_Last")%>
<br> </td>
</tr>
<tr>
<td align="right" valign="top"><b>Title </b></td>
<td valign="top"><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Job_Title","form1"))
%>" name="Job_Title" type="text" size="30" maxlength="100">
<%dwzValidator_0.getImageErrMsg("Job_Title")%>
<br> </td>
</tr>
<tr>
<td align="right" valign="top"><b>Firm </b></td>
<td valign="top"><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Company","form1"))
%>" name="Company" type="text" id="Company" size="30" maxlength="100">
<%dwzValidator_0.getImageErrMsg("Company")%>
<br> </td>
</tr>
<tr>
<td align="right" valign="top" nowrap><b>Business Phone </b></td>
<td valign="top" nowrap><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Phone","form1"))
%>" name="Phone" type="text" id="Phone" size="30" maxlength="100">
<br>
<span class="small">ie: 555-555-5555</span>
<%dwzValidator_0.getImageErrMsg("Phone")%>
<br> </td>
</tr>
<tr>
<td align="right" valign="top"><b>E-mail Address </b></td>
<td valign="top"><input value="<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getFieldValue("","Email","form1"))
%>" name="Email" type="text" id="Email" size="30" maxlength="100">
<%dwzValidator_0.getImageErrMsg("Email")%>
<br> </td>
</tr>
<tr>
<td align="right"> </td>
<td><span class="small">We do not share contact information with any third party<br>
</span></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td align="left" nowrap class="small"><p><img name="CaptchaImage" src="<%
'******************************
' http://www.dwzone-it.com
' ASP Security Image Generator
' CAPTCHA test
' Version 1.1.0
'******************************
dwzImagename = "CaptchaImage"
dwzSessionname = "CAPTCHA"
dwzImageWidth = "160"
dwzImageHeight = "40"
dwzCodeLength = "5"
dwzCharTracking = "3"
dwzRndTopMargin = "true"
dwzNoiseEffect = "1"
dwzNoiseLine = "5"
dwzMinLineLength = "8"
dwzPage = "./dwzCaptcha/dwzCaptcha.asp?dwzSessionname=" & dwzSessionname
dwzPage = dwzPage & "&dwzImageWidth=" & dwzImageWidth
dwzPage = dwzPage & "&dwzImageHeight=" & dwzImageHeight
dwzPage = dwzPage & "&dwzCodeLength=" & dwzCodeLength
dwzPage = dwzPage & "&dwzCharTracking=" & dwzCharTracking
dwzPage = dwzPage & "&dwzRndTopMargin=" & dwzRndTopMargin
dwzPage = dwzPage & "&dwzNoiseEffect=" & dwzNoiseEffect
dwzPage = dwzPage & "&dwzNoiseLine=" & dwzNoiseLine
dwzPage = dwzPage & "&dwzMinLineLength=" & dwzMinLineLength
response.write(dwzPage)
%>" width="160" height="40" alt=""><br>
Please enter the values from the image above into the field below.</p>
<p>
<input name="captchaText" type="text" id="captchaText" size="10" maxlength="8">
<i>
<%dwzValidator_0.getImageErrMsg("captchaText")%>
</i></p>
<p>
<input name="dwzSubmit" type="submit" value=" Contact FUSION ">
</p></td>
</tr>
</table>
<input type="hidden" id="dwzServerValidate" name="dwzServerValidate" value="form1" />
<input type="hidden" name="DW_Form_Name" value="form1"/>
</form>
</td>
<td align="left" valign="top" bgcolor="#FFFFFF" ><img src="/assets/spacer.gif" alt="" width="10" height="100"></td>
</tr>
<tr>
<td align="left" valign="top"> </td>
<td colspan="16" align="left" valign="top"> </td>
<td align="left" valign="top" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td colspan="17" align="right" valign="top" class="margin"><!--#include virtual="/incl.footer2.html" --></td>
<td> </td>
</tr>
</table>
</body>
</html>
<!--#include virtual="/dwzValidator/dwzValidatorClass.asp" -->
<%
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
response.write(dwzValidator_0.getJsAlert())
set dwzValidator_0 = nothing
'******************************
' http://www.DwZone-it.com
' Server Side Form Validator
'******************************
%>
<!--#include virtual="/dwzMail/Upload.asp" -->
<!--#include virtual="/dwzMail/AdvancedMail.asp" -->
<!--#include virtual="/dwzMail/UploadAdvanced.asp" -->