|
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/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/alynch/ |
Upload File : |
<%@ EnableSessionState=False %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--Website design and development by Bean Creative www.beancreative.com-->
<html>
<head>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=ISO-8859-1">
<title>Columbus Ventures: Thank You</title>
<style type="text/css">
p { font-family: verdana,arial;
color:000000;
font-size:10px;
line-height: 18px;}
td { font-family: verdana,arial;
color:000000;
font-size:10px;}
.greyfooter {
font-size:9px;
color:B2B4B6;
}
.redbold {
font-size:10px;
color:9D1D20;
font-weight:bold;
}
a {font-family: verdana,arial;
color:9D1D20;
font-size:10px;
line-height: 16px;}
.intline {
background-image: url(images/int_line_back.gif);
}
</style>
<script language="JavaScript" type="text/javascript">
<!--
function WM_imageSwap(daImage, daNum){
var objStr,obj;
// Check to make sure that images are supported in the DOM.
if(document.images){
// Check to see whether you are using a name, number, or object
if (typeof(daImage) == 'string') {
// This whole objStr nonesense is here solely to gain compatability
// with ie3 for the mac.
objStr = 'document.' + daImage;
obj = eval(objStr);
obj.src = "images/img_"+daImage+"_on.gif";
} else if ((typeof(daImage) == 'object') && daImage && daImage.src) {
daImage.src = daSrc;
}
}
}
<!--
function WM_imageSwapOut(daImage, daSrc){
var objStr,obj;
// Check to make sure that images are supported in the DOM.
if(document.images){
// Check to see whether you are using a name, number, or object
if (typeof(daImage) == 'string') {
// This whole objStr nonesense is here solely to gain compatability
// with ie3 for the mac.
objStr = 'document.' + daImage;
obj = eval(objStr);
obj.src = daSrc;
} else if ((typeof(daImage) == 'object') && daImage && daImage.src) {
daImage.src = daSrc;
}
}
}
// -->
// stop hiding -->
</script>
</head>
<body bgcolor="B2B4B6">
<center>
<table width="760" cellpadding="0" cellspacing="0" border="0" bgcolor="ffffff">
<tr>
<td valign="top" colspan="4" width="760"><img src="images/cv_logo_header.gif" alt="Columbus Ventures" width="760" height="54" border="0" usemap="#homenavigation"></td>
</tr>
<tr>
<td valign="top" colspan="4" width="760"><img src="images/hp_line_top.gif" border=0 alt="space"></td>
</tr>
<tr>
<td width="158" valign="top" rowspan="2"><img src="images/spacer.gif" width=158 height=29 alt="space"><br>
<a href="about.asp" onMouseOver="WM_imageSwapOut('about', 'images/img_a_on.gif');" onMouseOut="WM_imageSwapOut('about', 'images/img_a_off.gif');"><img src="images/img_a_off.gif" alt="About Us" name="about" id="about" width="158" height="34" border="0"></a><br>
<a href="philosophy.asp" onMouseOver="WM_imageSwapOut('philos', 'images/img_b_on.gif');" onMouseOut="WM_imageSwapOut('philos', 'images/img_b_off.gif');"><img src="images/img_b_off.gif" alt="Investment Philosophy" name="philos" id="philos" width="158" height="50" border="0"></a><br>
<a href="process.asp" onMouseOver="WM_imageSwapOut('process', 'images/img_c_on.gif');" onMouseOut="WM_imageSwapOut('process', 'images/img_c_off.gif');"><img src="images/img_c_off.gif" alt="Process" name="process" id="process" width="158" height="57" border="0"></a><br>
<img src="images/spacer.gif" alt="space" width="158" height="6"><br>
<a href="contact.asp" onMouseOver="WM_imageSwapOut('contact', 'images/img_d_on.gif');" onMouseOut="WM_imageSwapOut('contact', 'images/img_d_off.gif');"><img src="images/img_d_off.gif" alt="Contact Us" name="contact" id="contact" width="158" height="36" border="0"></a><br>
<a href="default.asp" onMouseOver="WM_imageSwapOut('home', 'images/img_e_on.gif');" onMouseOut="WM_imageSwapOut('home', 'images/img_e_off.gif');"><img src="images/img_e_off.gif" alt="Home" name="home" id="home" width="158" height="39" border="0"></a></td>
<td valign="top" rowspan="2" class="intline" width="9"><img src="images/spacer.gif" width=9 height=170 alt="space"></td>
<td valign="top" width="524"><img src="images/spacer.gif" width=524 height=3 alt="space"><table cellpadding="3" cellspacing="0" border="0">
<tr>
<td>
<!-- body text goes here -->
<img src="images/process_hdr.gif" alt="Process" width="69" height="25" border="0"><br clear="all">
<%
'Object Initialization
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "C:\WINNT\TEMP"
'If either file forms are empty, do not upload to server
if upl.Form("ESFile").TotalBytes > 0 then
upl.Form("ESFile").Save
end if
if upl.Form("BPFile").TotalBytes > 0 then
upl.Form("BPFile").Save
end if
'Mail Variables
Mailer.FromName = "Contact from ColumbusVentures.com"
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "Alison C. Lynch", "[email protected]"
Mailer.AddRecipient "Yale R. Brown", "[email protected]"
Mailer.AddRecipient "Robert M. Lippmann", "[email protected]"
Mailer.Subject = "Contact from ColumbusVentures.com"
'If the file exist on the server, attach to the email message
if right(upl.Form("ESFile").ServerName, 3) <> "tmp" then
Mailer.AddAttachment upl.Form("ESFile").ServerName
end if
if right(upl.Form("BPFile").ServerName, 3) <> "tmp" then
Mailer.AddAttachment upl.Form("BPFile").ServerName
end if
'Mail Message
strMsgHeader = "---" & vbCrLf
strMsgInfo = strMsgInfo & upl.Form("CompanyName") & vbCrLf
strMsgInfo = strMsgInfo & upl.Form("CompanyAddress") & vbCrLf
strMsgInfo = strMsgInfo & upl.Form("CompanyAddress2") & vbCrLf
strMsgInfo = strMsgInfo & upl.Form("CompanyCity") & ", "
strMsgInfo = strMsgInfo & upl.Form("CompanyState") & " "
strMsgInfo = strMsgInfo & upl.Form("CompanyZip") & vbCrLf & vbCrLf
strMsgInfo = strMsgInfo & "URL: " & upl.Form("CompanyURL") & vbCrLf & vbCrLf
strMsgInfo = strMsgInfo & "Contact: " & vbCrLf & upl.Form("ContactFirstName") & " " & upl.Form("ContactLastName") & vbCrLf
strMsgInfo = strMsgInfo & "Title: " & upl.Form("ContactTitle") & vbCrLf
strMsgInfo = strMsgInfo & "Email: " & upl.Form("Email") & vbCrLf
strMsgInfo = strMsgInfo & "Phone: " & upl.Form("ContactPhone") & vbCrLf
strMsgInfo = strMsgInfo & "Fax: " & upl.Form("ContactFax") & vbCrLf & vbCrLf
strMsgInfo = strMsgInfo & "Date Company Started: " & upl.Form("FoundingMonth") & ", " & upl.Form("FoundingYear") & vbCrLf
strMsgInfo = strMsgInfo & "Company Type: " & upl.Form("CompanyType") & vbCrLf
strMsgInfo = strMsgInfo & "State of Incorporation: " & upl.Form("IncorporationState") & vbCrLf
strMsgInfo = strMsgInfo & "Anticipated Closing Date: " & upl.Form("ClosingMonth") & ", " & upl.Form("ClosingYear") & vbCrLf
strMsgInfo = strMsgInfo & "Company Description: " & vbCrLf & upl.Form("CompanyDescription") & vbCrLf & vbCrLf
strMsgInfo = strMsgInfo & "Funding Amount: $" & upl.Form("FundingAmount") & vbCrLf & vbCrLf
strMsgInfo = strMsgInfo & "Referred to site by: " & upl.Form("ReferredBy") & vbCrLf & vbCrLf
'If Executive Summary file exist, notify receipent
if right(upl.Form("ESFile").ServerName, 3) <> "tmp" then
strMsgInfo = strMsgInfo & "Executive Summary attached" & vbCrLf
end if
'If Business Plan file exist, notify receipent
if right(upl.Form("BPFile").ServerName, 3) <> "tmp" then
strMsgInfo = strMsgInfo & "Business Plan attached" & vbCrLf
end if
strMsgFooter = "---" & vbCrLf
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
'Send Mail
if Mailer.SendMail then
Response.Write "Thank you for your submission. Your information will be kept confidential.<br><br>We will review your information and contact you shortly.<br>"
else
Response.Write "<strong>Error</strong><br>Mail send failure error = " & Mailer.Response
end if
'Security Precaution - Deleting attachment files from the servers TEMP directory
upl.Form("ESFile").Delete
upl.Form("BPFile").Delete
%>
<!-- end body text -->
</td>
</tr>
</table></td>
<td valign="top" width="69"><img src="images/spacer.gif" alt="space" width="69" height="170"></td>
</tr>
<tr>
<td colspan="2" align="center" width="593" class="greyfooter">117 S. Columbus St, Alexandria, VA 22314 · ph 703.836.6500 · fx 703.837.8821 · www.columbusventures.com</td>
</tr>
<tr>
<td valign="top" colspan="4" width="760"><img src="images/spacer.gif" width=10 height=2 alt="space"><br>
<img src="images/bottom_line.gif" width=760 height=2 alt="space"></td>
</tr>
</table>
</center>
<!--IMAGE MAPS-->
<map name="homenavigation">
<area shape="rect" coords="120,15,629,43" href="default.asp" alt="Home">
</map>
</body>
</html>