Lois Scott's Photo Albums

<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "yes" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_twinoaks_STRING Recordset1.Source = "SELECT photoID, photoCode, photoTitle, photoVisible FROM LOISPHOTO WHERE photoVisible = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY photoID ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Lois Scott's Photo Albums

Lois Scott's Photo Treasury - My Life in Pictures

<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> Click the title to select a photo album to view.
More photo albums coming soon!! <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

"> <%Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\hosting\amgosp\twinoaks\loisscott\picturealbums\" & (Recordset1.Fields.Item("photoCode").Value) & "-1.jpg"))=true Then Response.Write(" Click to see entire album

") Else Response.Write("

") End If %>

"><%=(Recordset1.Fields.Item("photoTitle").Value)%>

<% If Recordset1.EOF And Recordset1.BOF Then %>

No photo albums currently available.

Check back soon!

<% End If ' end Recordset1.EOF And Recordset1.BOF %>

Home Bio Photos Guestbook Band Gigs My Music Buy Stuff Links Contact

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