ASP Source Code: - 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">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<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
%>