<%
'##############################
'## Get Browser and Script Name

'## get the name of the current script for the navbar and header graphics
ScriptName = Request.ServerVariables("SCRIPT_NAME")

'## get the name of the browser to wrap in browser-specific tags
UserAgent = Request.ServerVariables("HTTP_USER_AGENT")


'######################################################################################
'## HTTP Header Data Capture

	On Error Resume Next

	'## Capture the referring URL and the browser
	strReferrer = Request.ServerVariables("HTTP_REFERER")
	strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
	strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")
	strRemoteHost = Request.ServerVariables("REMOTE_HOST")
	strRemoteUser = Request.ServerVariables("REMOTE_USER")


'######################################################################################
'## Spider/Bot Detection

	IF instr(1,strUserAgent,"Perl",1) > 0 OR instr(1,strUserAgent,"Bot",1) > 0 OR instr(1,strUserAgent,"Spider",1) > 0 OR instr(1,strUserAgent,"Scooter",1) > 0 OR instr(1,strUserAgent,"Link",1) > 0 OR instr(1,strUserAgent,"URL",1) > 0 OR instr(1,strUserAgent,"Sidewinder",1) > 0 OR instr(1,strUserAgent,"Slurp",1) > 0 OR instr(1,strUserAgent,"Radiation",1) > 0 OR instr(1,strUserAgent,"Ultraseek",1) > 0 OR instr(1,strUserAgent,"WebCompass",1) > 0 OR instr(1,strUserAgent,"Java",1) > 0 OR instr(1,strUserAgent,"crawler",1) > 0 OR instr(1,strUserAgent,"Crescent",1) > 0 OR instr(1,strUserAgent,"eGain",1) > 0 OR instr(1,strUserAgent,"ia_archiver",1) > 0 OR instr(1,strUserAgent,"Super",1) > 0 OR instr(1,strUserAgent,"Scanner",1) > 0 then
		strBOT = "TRUE"
	END IF


'######################################################################################
'## Referrer Logging

	IF NOT Request.Cookies("tourVisitBefore") = "TRUE" then

		'## OPEN TEXT FILE
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objNewFile = objFSO.OpenTextFile("d:/209.237.144.31/tour/site_log.txt", 8)

		IF strBOT = "TRUE" THEN
			'## WRITE TO TEXT FILE WITH BOT FLAG
			objNewFile.WriteLine strReferrer & "|" & FormatDateTime(Now,vbShortDate) & "|" & FormatDateTime(Now,vbShortTime) & "|*BOT* " & strUserAgent & "|" & strRemoteAddr & "|" & strRemoteHost & "|" & strRemoteUser & "|" & ScriptName
		ELSE
			'## WRITE TO TEXT FILE
			objNewFile.WriteLine strReferrer & "|" & FormatDateTime(Now,vbShortDate) & "|" & FormatDateTime(Now,vbShortTime) & "|" & strUserAgent & "|" & strRemoteAddr & "|" & strRemoteHost & "|" & strRemoteUser & "|" & ScriptName
		END IF

		'## CLOSE TEXT FILE
		objNewFile.Close

	END IF

'######################################################################################
'## Cookie Setting

	'## Adds 1 month onto todays date so the cookie will expire 1 month from now
	NewDate = DateAdd("d", 1, FormatDateTime(Now,vbGeneralDate))

	'## This sets the cookie so that the next time the user comes back they will skip the splash page
	Response.Cookies("tourVisitBefore") = "TRUE"
	Response.Cookies("tourVisitBefore").expires = cdate(NewDate)

'######################################################################################
'## Define some variables
articleID = Request("articleID")
folder = Request("folder")
print = Request("print")

'######################################################################################
'## Browser Determination

'## get the name of the browser to wrap in browser-specific tags
UserAgent = Request.ServerVariables("HTTP_USER_AGENT")

	IF Request.Cookies("Browser") = "" then
		if (instr(1,UserAgent,"Mozilla",1) > 0 OR instr(1,UserAgent,"MSIE",1) > 0) AND instr(1,UserAgent,"4.",1) > 0 THEN
			'## Adds 1 month onto today date so the cookie will expire 1 month from now
			NewerDate = DateAdd("m", 1, FormatDateTime(Now,vbGeneralDate))
			'## This sets the cookie so that the next time the user comes back they will skip the splash page
			Response.Cookies("Browser") = "CSS"
			Response.Cookies("Browser").expires = cdate(NewerDate)
		end if
	END IF

'######################################################################################
'## Set Text Size

	IF NOT Request("Size") = "" THEN
		IF Request("Size") = "Large" THEN
			Response.Cookies("TextSize") = "Large"
			Response.Cookies("TextSize").expires = #10/10/2001#
		ELSEIF Request("Size") = "Normal" THEN
			Response.Cookies("TextSize") = "Normal"
			Response.Cookies("TextSize").expires = #10/10/2001#
		ELSEIF Request("Size") = "Small" THEN
			Response.Cookies("TextSize") = "Small"
			Response.Cookies("TextSize").expires = #10/10/2001#
		END IF
	ELSEIF Request.Cookies("TextSize") = "" THEN
		Response.Cookies("TextSize") = "Normal"
		Response.Cookies("TextSize").expires = #10/10/2001#
	END IF

'##############################
'## Colors
IF uCase(print) = "TRUE" THEN
	b_bgcolor = "#ffffff"
	b_text = "#000000"
	b_link = "#000000"
	b_vlink = "#000000"
	small = "#000000"
	title = "#000000"
	MonthTable = "#ffffff"
ELSE
	b_bgcolor = "#003333"
	b_text = "#cccc99"
	b_link = "#cc9933"
	b_vlink = "#999999"
	small = "#ffffff"
	title = "#ffff99"
	MonthTable = "#000000"
END IF
%>
<%
'######################################################################################
'## HTTP Header Data Capture

	On Error Resume Next

	'## Capture the referring URL and the browser
	strReferrer = Request.ServerVariables("HTTP_REFERER")
	strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
	strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")
	strRemoteHost = Request.ServerVariables("REMOTE_HOST")
	strRemoteUser = Request.ServerVariables("REMOTE_USER")
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
                "http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="en-us">
<head>
<title>Paris Roselli - European Tour 2000-2001</title>


<META name="description" content="Paris Roselli - European Tour 2000">
<META name="Author" content="Adrian Roselli">
<META name="copyright" content="&copy; 1999 Adrian Roselli">
<META name="keywords" lang="en-us" content="Roselli, Adrian, Paris,
	Hague, London, Netherlands, Amsterdam, United Kingdom,
	Britain">

<META http-equiv="Content-Style-Type" content="text/css">
<META http-equiv="Content-Script-Type" content="text/javascript">
<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<META http-equiv="Content-Language" content="en-us">


<LINK  REL="stylesheet" TYPE="text/css" HREF="../includes/master.css">
<SCRIPT LANGUAGE = "JavaScript" type="text/javascript">
<!--

if (top.location != self.location) {
	top.location = self.location
}


if (document.images) {

        Ron = new Image();
        Ron.src = "images/arrow_rt_on.gif";

        Roff = new Image();
        Roff.src = "images/arrow_rt_off.gif";

        Lon = new Image();
        Lon.src = "images/arrow_lt_on.gif";

        Loff = new Image();
        Loff.src = "images/arrow_lt_off.gif";

        Uon = new Image();
        Uon.src = "images/arrow_up_on.gif";

        Uoff = new Image();
        Uoff.src = "images/arrow_up_off.gif";

        Bon = new Image();
        Bon.src = "images/bullet_on.gif";

        Boff = new Image();
        Boff.src = "images/bullet_off.gif";

        Eon = new Image();
        Eon.src = "images/b_enlarge_on.gif";

        Eoff = new Image();
        Eoff.src = "images/b_enlarge_off.gif";

        Son = new Image();
        Son.src = "images/b_shrink_on.gif";

        Soff = new Image();
        Soff.src = "images/b_shrink_off.gif";
}


function rotate(state,imageName) {
        if (document.images) {
                document.images[imageName].src = eval(state + ".src");
        }
}


// -->
</SCRIPT>


</head>

<body bgcolor="#003333" text="#cccc99" link="#cc9933" vlink="#999999" alink="#ff0000">

<TABLE WIDTH="590" BORDER="0" CELLPADDING="0" CELLSPACING="0" ALIGN="CENTER"> 
 <TR>
  <TD VALIGN="TOP" ALIGN="LEFT" WIDTH="170">

<!-- Start Page Navigation -->
   <a href="index.html" target="_top" onMouseOver="rotate('Ron','index'); self.status='Return to Index'; return true" onMouseOut="rotate('Roff','index'); self.status='European Tour'; return true"><img src="images/arrow_rt_off.gif" name="index" width="14" height="19" border="0" alt=""><img src="images/b_index.gif" alt="Back to Index" border="0" width="31" height="19"></a><br>

<!--   <a href="email.html" target="_top" onMouseOver="rotate('Ron','email'); self.status='Send Email to Paris'; return true" onMouseOut="rotate('Roff','email'); self.status='European Tour'; return true"><img src="images/arrow_rt_off.gif" name="email" width="14" height="19" border="0" alt=""><img src="images/b_email.gif" width="136" height="19" alt="Send Email to Paris" border="0"></a><br>-->

   <img src="images/arrow_rt_grey.gif" width="14" height="19" border="0" alt=""><img src="images/b_email_grey.gif" width="136" height="19" alt="Send Email to Paris" border="0"><br>

   <a href="links.html" target="_top" onMouseOver="rotate('Ron','links'); self.status='Den Haag Links'; return true" onMouseOut="rotate('Roff','links'); self.status='European Tour'; return true"><img src="images/arrow_rt_off.gif" name="links" width="14" height="19" border="0" alt=""><img src="images/b_links.gif" width="136" height="19" alt="Den Haag Links" border="0"></a><br>

<!--   <a href="admin.asp" target="_top" onMouseOver="rotate('Ron','admin'); self.status='Administer Site'; return true" onMouseOut="rotate('Roff','admin'); self.status='European Tour'; return true"><img src="images/arrow_rt_off.gif" name="admin" width="14" height="19" border="0" alt=""><img src="images/b_admin.gif" width="136" height="19" alt="Administer Site" border="0"></a><br>-->
<!-- End Page Navigation -->
<br>

  </TD>
  <TD WIDTH="20">&nbsp;</TD>
  <TD VALIGN="TOP" ALIGN="RIGHT" WIDTH="400">

<%
IF Request("action") = "email" AND emailValid(Request("strEmail")) AND NOT (Request("strName") = "" OR Request("strMessage") = "") THEN
	EMAIL_SENT
ELSE
	EMAIL_FORM
END IF
%>

  </TD>
 </TR>
</TABLE>

</font>
</body>
</html>


<% SUB EMAIL_FORM %>
	<FORM ACTION="<% = ScriptName %>" METHOD="POST">

<table width="400" border="0" cellpadding="3" cellspacing="0" align="center">
 <tr>
  <td colspan="2"><font face="arial,helvetica,sans serif" size="3" class="title" color="#ffff99">
Send email to Paris:<br>
  </font></td>
 </tr>
 <tr>
  <td valign="top" align="right" nowrap>
	<font face="arial,helvetica,sans-serif" size="2" class="text">
	 <label for="strName">
	  Your <u style="text-decoration:underline">N</u>ame:
	 </label>
	</font>
  </td>
  <td valign="top" align="left" nowrap>
	<INPUT type="text" name="strName" id="strName" value="<% = Request("strName") %>" size="30" maxlength="60" tabindex="02" accesskey="n">
  </td>
 </tr>
 <tr>
  <td valign="top" align="right" nowrap>
	<font face="arial,helvetica,sans-serif" size="2" class="text">
	 <label for="strEmail">
	  Your <u style="text-decoration:underline">E</u>mail:
	 </label>
	</font>
  </td>
  <td valign="top" align="left">
	<INPUT type="text" name="strEmail" id="strEmail" value="<% = Request("strEmail") %>" size="30" maxlength="60" tabindex="04" accesskey="e">
  </td>
 </tr>
 <tr>
  <td valign="top" align="right" nowrap>
	<font face="arial,helvetica,sans-serif" size="2" class="text">
	 <label for="strSubject">
	  <u style="text-decoration:underline">S</u>ubject:
	 </label>
	</font>
  </td>
  <td valign="top" align="left">
	<INPUT type="text" name="strSubject" id="strSubject" value="<% = Request("strSubject") %>" size="30" maxlength="60" tabindex="06" accesskey="s">
  </td>
 </tr>
 <tr>
  <td valign="top" align="right" nowrap>
	<font face="arial,helvetica,sans-serif" size="2" class="text">
	 <label for="strMessage">
	  <u style="text-decoration:underline">M</u>essage:
	 </label>
	</font>
  </td>
  <td valign="top" align="left">
	<TEXTAREA name="strMessage" id="strMessage" tabindex="08" accesskey="m" rows="10" cols="35" wrap="virtual"><% = Request("strMessage") %></TEXTAREA><br>
	<font size="1" face="verdana,arial,helvetica,sans serif" color="<% = small %>" class="small">
	Please be sure to fill out your name, email address, subject, and message.  If you forget to enter one of these, the page will reload, but you'll have to figure out which one you forgot because I don't have time yet to build those features.
	</font>
  </td>
 </tr>

 <tr>
  <td valign="bottom" align="right" colspan="2">
	<INPUT type="hidden" name="action" value="email">
	<INPUT type="reset" value="Clear Form">
	&nbsp;&nbsp;
	<INPUT type="submit" value="Send Email" tabindex="100">
  </td>
 </tr>
</table>

	</FORM>
<% END SUB %>


<% SUB EMAIL_SENT %>
<% 
on error resume next
'## Save Original Referrer in the Session

'## Generate Email
	Set Message = Server.CreateObject("SMTPsvg.Mailer")
	Message.QMessage = true
	Message.FromName = Request("strName")
	Message.ContentType = "text"
	Message.FromAddress = Request("strEmail")

'## Add Additional Receipients.
	Message.AddRecipient "Adrian Roselli","roselli@earthlink.net"
	'Message.AddRecipient "Paris Roselli","paris@roselli.org"

	Message.Subject = Request("strSubject")
	Message.RemoteHost = "mail.roselli.org"

	Body = vbcrlf
	Body = Body & Request("strMessage") & vbcrlf
	Body = Body & vbcrlf
	Body = Body & "========" & vbcrlf
	Body = Body & "Sender Information:" & vbcrlf
	Body = Body & vbcrlf
	Body = Body & "Date/Time:" & vbTab & FormatDateTime(Now,vbShortDate) & ", " & FormatDateTime(Now,vbShortTime) & vbcrlf
	Body = Body & "Referrer:" & vbTab & strReferrer & vbcrlf
	Body = Body & "User Agent:" & vbTab & strUserAgent & vbcrlf
	Body = Body & "IP Address:" & vbTab & strRemoteHost & vbcrlf
	Body = Body & vbTab & "http://www.wpi.edu/cgi-bin/nslookup?" & strRemoteHost & vbcrlf
	Body = Body & vbTab & "http://www.www.arin.net/whois" & vbcrlf


'## Compose message and send	
	Message.BodyText = Body
	if Message.SendMail then
	end if

%>
<table width="100%">
 <tr>
  <td>
<font face="arial,helvetica,sans serif" size="3" class="title" color="#ffff99">
Email Sent.<br>
  </font>
  </td>
 </tr>
</table>
<% END SUB %>

<%
Public Function emailValid(eAddr)
	'## Make sure the field is not empty, or else abort function
	IF eAddr = "" OR IsEmpty(eAddr) THEN
		emailValid = False
		Exit Function
	END IF

	'## if not 6 characters or more after trimming and replacing, then fail
	IF NOT instr(1,eAddr,"@",1) > 0 OR NOT instr(1,eAddr,".",1) > 0 OR NOT Len(Trim(eAddr)) > 5 THEN
		emailValid = False
	ELSE
		emailValid = True
	END IF
End Function
%>