<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("photoID") <> "") Then Recordset1__MMColParam = Request.QueryString("photoID") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_twinoaks_STRING Recordset1.Source = "SELECT * FROM LOISPHOTO WHERE photoID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <%=(Recordset1.Fields.Item("photoTitle").Value)%>
<%=(Recordset1.Fields.Item("photoTitle").Value)%>

Click a picture to enlarge
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-1.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-2.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-3.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-4.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-5.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<% Dim MyText MyText = Recordset1.Fields.Item("photoCap1").Value MyText =Replace(MyText,vbcrlf,"
") Response.write MyText %> 		<% Dim MyText2 MyText2 = Recordset1.Fields.Item("photoCap2").Value MyText2 =Replace(MyText2,vbcrlf,"
") Response.write MyText2 %> 		<% Dim MyText3 MyText3 = Recordset1.Fields.Item("photoCap3").Value MyText3 =Replace(MyText3,vbcrlf,"
") Response.write MyText3 %>		 <% Dim MyText4 MyText4 = Recordset1.Fields.Item("photoCap4").Value MyText4 =Replace(MyText4,vbcrlf,"
") Response.write MyText4 %>		 <% Dim MyText5 MyText5 = Recordset1.Fields.Item("photoCap5").Value MyText5 =Replace(MyText5,vbcrlf,"
") Response.write MyText5 %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-6.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-7.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-8.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-9.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\ligoniery\tol\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-10.jpg"))=true Then Response.Write("Click picture for larger version
") Else Response.Write("

") End If %>
<% Dim MyText6 MyText6 = Recordset1.Fields.Item("photoCap6").Value MyText6 =Replace(MyText6,vbcrlf,"
") Response.write MyText6 %>		 <% Dim MyText7 MyText7 = Recordset1.Fields.Item("photoCap7").Value MyText7 =Replace(MyText7,vbcrlf,"
") Response.write MyText7 %>		 <% Dim MyText8 MyText8 = Recordset1.Fields.Item("photoCap8").Value MyText8 =Replace(MyText8,vbcrlf,"
") Response.write MyText8 %>		 <% Dim MyText9 MyText9 = Recordset1.Fields.Item("photoCap9").Value MyText9 =Replace(MyText9,vbcrlf,"
") Response.write MyText9 %>		 <% Dim MyText10 MyText10 = Recordset1.Fields.Item("photoCap10").Value MyText10 =Replace(MyText10,vbcrlf,"
") Response.write MyText10 %>

<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
Return to Album List
Home    Bio    Photos    Guestbook    Band Gigs    My Music    Buy Stuff    Links    Contact                 

<% Recordset1.Close() Set Recordset1 = Nothing %>