<% Conn.Open "samfranklin2;" SQL = "SELECT counter FROM store_store" Set RS = Conn.Execute(SQL) picCounter = 0 'get the total number of images from the database If RS.EOF Then picCounter = 0 Else picCounter = CInt(RS("counter")) End If 'get the number of the image to diplay, if it is an empty string then default to 1 id = Request.QueryString("ID") If id = "" Then picID = "1" picIDnext = "2" picIDprevious = "1" ElseIf id = "0" Then picID = "1" picIDnext = "2" picIDprevious = "1" ElseIf Cint(id) = picCounter Then picID = picCounter picIDnext = picCounter picIDprevious = Cint(picID) - 1 Else picID = id picIDnext = CInt(picID) + 1 picIDprevious = CInt(picID) - 1 End If 'check for the beginning and end of images to display a message If id = "0" Then showMessage = "You are at the beginning of the photos..." ElseIf CInt(picID) = picCounter THen showMessage = "You are at the end of the photos..." End If 'get the name of the image from the pic table SQL2 = "SELECT * FROM store_store_pics" Set RS2 = Conn.Execute(SQL2) tempPicCounter = 1 Do While Not RS2.EOF If tempPicCounter = CInt(picID) Then imageToDisplay = RS2("imageName") Exit Do End If RS2.MoveNext tempPicCounter = tempPicCounter + 1 Loop %>


The Store
Leo Smith
Fontanini
Gallery

The Store

<% if picID = "1" Then %>When you visit Floral Designs by Samuel Franklin, whether on-line or in person, you’ll be enchanted by the offerings of the Samuel Franklin store. Complementing our full line of floral services is our unique boutique of collectibles, ready made and custom created arrangements and accessories, and an array of gift items in all price ranges. You’ll also find a mix of furnishings, from the new modern to the traditional to the antique. Looking for Leo Smith and Fontanini? You’ll find an extensive collection at Samuel Franklin. <% end if %>


<%= showMessage %>
<% Set RS = Nothing Set RS2 = Nothing Conn.Close %>