<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% Region = "" %>
<% Branch="" %>
<% Dim rsThisPhoto, strConnect, PhotoNumber, strQuery
'** Get which photo we're looking for from the query string
PhotoNumber = Request.QueryString("Photo")
'** Create the recordset and connection
adOpenStatic=3
adLockReadOnly=1
on error resume next
Set strConnect = Server.CreateObject("ADODB.Connection")
Set rsThisPhoto = Server.CreateObject("ADODB.Recordset")
strConnect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/Photos.mdb") & ""
if Err.Number<>0 then
Response.write "
Sorry but at this time, the database that stores enlarged photos is not available due to server problems
We do not have any estimate for how long it will take to fix
"
Response.end
else
on error goto 0
end if
set rsThisPhoto.ActiveConnection = strConnect
rsThisPhoto.Source = "SELECT Photos.* FROM Photos WHERE (((Photos.[No])="&PhotoNumber&"));"
rsThisPhoto.CursorType = adOpenStatic
rsThisPhoto.LockType = adLockReadOnly
rsThisPhoto.Open
%>
Canadian Pony Club Photo Display Page