<%@ Language = VBScript %> <% 'LEGGO I PARAMETRI Dim MuseumID 'PAGEMODE=0 --> visualizzazione elenco item 'PAGEMODE=1 --> ingrandimento foto principale 'PAGEMODE=2 --> elenco foto aggiuntive del singolo item 'PAGEMODE=3 --> ingrandimento foto aggiuntiva del singolo item Dim PageMode Dim P_ItemID Dim P_PicID MuseumID="" PageMode="" P_ItemID="" P_PicID="" MuseumID = Request.QueryString ("MuseumID") PageMode = Request.QueryString ("PageMode") P_ItemID = Request.QueryString ("ItemID") P_PicID = Request.QueryString ("PicID") if MuseumID = "" then MuseumID=0 Else MuseumID = MuseumID * 1 End If if PageMode = "" then PageMode=0 Else PageMode = PageMode * 1 End If if P_ItemID = "" then P_ItemID=0 Else P_ItemID = P_ItemID * 1 End If if P_PicID = "" then P_PicID=0 Else P_PicID = P_PicID * 1 End If dim ObjConn %> www.vernimark.com - VERNIMARK SITE 3.0 <% '********************************************** '* MUSEUM ID <> 0 => ELENCO ITEMS DEL MUSEO * '********************************************** 'APRO IL DATABASE on error resume next dim RSmuseum dim RSmuseumItem dim RSmuseumItemPics dim RSsinglePic 'on error goto 0 dim STRSQLmuseumItem dim STRSQLmuseum dim STRSQLsinglepic dim StrSQLmuseumItemPics Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & vernimarkdb ObjConn.Open StrSQLmuseumItem="SELECT * FROM museum_itemlist WHERE museumID=" & MuseumID & " ORDER BY ItemOrder" StrSqlmuseum ="SELECT * FROM museum_list WHERE museumID=" & MuseumID Set RSmuseumItem = Server.CreateObject("ADODB.Recordset") Set RSmuseum = Server.CreateObject("ADODB.Recordset") Set RSmuseumItemPics = Server.CreateObject("ADODB.Recordset") RSmuseumItem.Open StrSQLmuseumItem, ObjConn ,adOpenKeySet RSmuseum.Open StrSQLmuseum, ObjConn ,adOpenKeySet dim ItemID dim NumPic Dim PicID Dim MuseumPath Dim ItemPath Dim pageMode2 Dim P_Title MuseumPath = RSmuseum.Fields("MuseumPath") %> <% on error resume next While not RSmuseumItem.EOF ItemID = RSmuseumItem.Fields("ItemID") NumPic = RSmuseumItem.Fields("NumPic") ItemPath=RSmuseumItem.Fields("ItemPath") PageMode2 = 1 P_Title="Click to enlarge this picture" if PageMode = 1 AND ItemID = P_ItemID Then PageMode2 = 0 P_Title="Click to hide the picture" End If if PageMode = 2 AND ItemID = P_ItemID Then PageMode2 = 0 P_Title="Click to hide the other pictures of this item" End If %> <% if PageMode = 1 AND ItemID = P_ItemID Then %> <% End If %> <% if ( (PageMode = 2) OR (PageMode = 3) ) AND ItemID = P_ItemID Then %> <% End If %> <% RSmuseumItem.MoveNext Wend %>

<%=RSmuseum.Fields("MuseumName")%>

<%=RSmuseum.Fields("MuseumDescription")%>

"> " > <%=RSmuseumItem.Fields("ItemSubType") & " - "%> <% if NumPic <> 0 Then %> <% if P_ItemID<>ItemID then %> "> <% Else %> "> <% End If %> <% End If %> <%=RSmuseumItem.Fields("ItemName")%> <% if NumPic <> 0 Then %> <% End If %> <%=". " & RSmuseumItem.Fields("ItemDescription")%>
"> ">
<% StrSQLmuseumItemPics="SELECT * FROM museum_itempics WHERE itemID=" & ItemID & " ORDER BY PicOrder" RSmuseumItemPics.Open StrSQLmuseumItemPics, ObjConn ,adOpenKeySet While not RSmuseumItemPics.EOF PicID = RSmuseumItemPics.Fields("PicID") %> <% if (PageMode = 3) AND PicID = P_PicID Then %> <% End if %> <% RSmuseumItemPics.MoveNext Wend RSmuseumItemPics.Close %>
<% if (PageMode = 3) AND PicID = P_PicID then %> "> <% Else %> "> <% End If %> " > <%=RSmuseumItemPics.Fields("PicDescription")%>
"> ">

<% RSmuseumitem.Close %> <% RSmuseum.Close %>