%@ 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")
%>
<%=RSmuseum.Fields("MuseumName")%>
<%=RSmuseum.Fields("MuseumDescription")%>
<% 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
%>
<% End If %>
<% if ( (PageMode = 2) OR (PageMode = 3) ) AND ItemID = P_ItemID Then %>
<% StrSQLmuseumItemPics="SELECT * FROM museum_itempics WHERE itemID=" & ItemID & " ORDER BY PicOrder"
RSmuseumItemPics.Open StrSQLmuseumItemPics, ObjConn ,adOpenKeySet
While not RSmuseumItemPics.EOF
PicID = RSmuseumItemPics.Fields("PicID")
%>