ASP Source Code: Mulvey Family Photo Album - DisplayImage.asp
<%@ language = "vbscript" %>
<%
option explicit
Response.Buffer = True
%>

<!--#include Virtual="/IncFiles/adovbs.inc"-->
<!--#include Virtual="/IncFiles/mulveyDSN.inc"-->
<!--#include Virtual="/IncFiles/getCaption.inc"-->
<!--#include Virtual="/IncFiles/toHTML.inc"-->
<!--#include Virtual="/IncFiles/hitCount.inc"-->

<%
dim InString
dim ImageName
dim ImagePath
dim Caption
dim i
dim flag
dim Body

InString = Request("ImageName")

if len(InString)>4 then
	i = InStrRev(InString,"\")

	ImagePath=server.mapPath(left(InString,i))
	ImageName=mid(InString,i+1,len(InString)-4-i)
	
	hitCount(InString)
	getCaption ImagePath,ImageName,2
	%>
	
	<html>
	<head>
		<META NAME="AUTHOR" CONTENT="Allen Mulvey">
		<LINK rel="stylesheet" type="text/css" href="/incfiles/styles.css">
		<title>Mulvey Family Photo Gallery Image Display</title>
	</head>
	
	<body>
	<center>
	<h2 align="center">Mulvey Family Photo Gallery</h2>
	<p align="center">
	<img src="<% =InString %>" align="center" border="1">
	
	<p>
	<% =Caption %>
	<p>
	This page has been accessed <% =VisitorCount %> times.
	
	</center>
	
	</body>
	</html>
	<%
else
	response.write "No image was specified."
end if
%>