<%@LANGUAGE="VBSCRIPT"%> <% response.Flush() %> <% Dim sezioni Dim sezioni_numRows Set sezioni = Server.CreateObject("ADODB.Recordset") sezioni.ActiveConnection = MM_antichi_STRING sezioni.Source = "SELECT * FROM sezioni ORDER BY sezione ASC" sezioni.CursorType = 0 sezioni.CursorLocation = 2 sezioni.LockType = 1 sezioni.Open() sezioni_numRows = 0 %> <% Dim sottosezioni Dim sottosezioni_numRows Set sottosezioni = Server.CreateObject("ADODB.Recordset") sottosezioni.ActiveConnection = MM_antichi_STRING sottosezioni.Source = "SELECT * FROM sottosezioni ORDER BY sottosezione ASC" sottosezioni.CursorType = 0 sottosezioni.CursorLocation = 2 sottosezioni.LockType = 1 sottosezioni.Open() sottosezioni_numRows = 0 %> <% Dim tipo Dim tipo_numRows Set tipo = Server.CreateObject("ADODB.Recordset") tipo.ActiveConnection = MM_antichi_STRING tipo.Source = "SELECT * FROM tipo ORDER BY tipo ASC" tipo.CursorType = 0 tipo.CursorLocation = 2 tipo.LockType = 1 tipo.Open() tipo_numRows = 0 %> <% Dim articoli__MMColParam articoli__MMColParam = "1" If (Request.QueryString("codice") <> "") Then articoli__MMColParam = Request.QueryString("codice") End If %> <% Dim articoli Dim articoli_numRows Set articoli = Server.CreateObject("ADODB.Recordset") articoli.ActiveConnection = MM_antichi_STRING articoli.Source = "SELECT * FROM antichi WHERE codice = " + Replace(articoli__MMColParam, "'", "''") + "" articoli.CursorType = 0 articoli.CursorLocation = 2 articoli.LockType = 1 articoli.Open() articoli_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 articoli_numRows = articoli_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 4 Repeat2__index = 0 articoli_numRows = articoli_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 4 Repeat3__index = 0 articoli_numRows = articoli_numRows + Repeat3__numRows %> :: Dettaglio :: Antiquariato :: Torreggiani.it
   
[
SEZIONE :

<%=(articoli.Fields.Item("sezione").Value)%>
]
[
SOTTOSEZIONE :

<%=(articoli.Fields.Item("sottosezione").Value)%>

]
[
genere :

<%=(articoli.Fields.Item("tipo").Value)%>
]
SEZIONE:
SOTTOSEZIONe: 
GENERe: 
   
       


" width="320" class="Contornoc">
codice: <%=(articoli.Fields.Item("codice").Value)%>
oggetto: <%=(articoli.Fields.Item("oggetto").Value)%>
pERIODO: <%=(articoli.Fields.Item("periodo").Value)%>
PROVENIENZA: <%=(articoli.Fields.Item("provenienza").Value)%>
SEZIONE: <%=(articoli.Fields.Item("sezione").Value)%>
SOTTOSEZIONE: <%=(articoli.Fields.Item("sottosezione").Value)%>
GENERE: <%=(articoli.Fields.Item("tipo").Value)%>
descrizione: <%=(articoli.Fields.Item("descrizione").Value)%>
prezzo: <% if (articoli.Fields.Item("prezzo").Value)="" then %> Non disponibile <% ElseIf (articoli.Fields.Item("prezzo").Value)="0" Then %> Non disponibile <% ElseIf isnumeric((articoli.Fields.Item("prezzo").Value)) Then %> € <%=(articoli.Fields.Item("prezzo").Value)%> <% Else %> <%=(articoli.Fields.Item("prezzo").Value)%> <% End If %>
CERTIFICATO: <%if articoli.Fields.Item("certificato") = "si" then%>
<%else%>
<%end if%>
[  Torna indietro  ]
 

 

  
<% sezioni.Close() Set sezioni = Nothing %> <% sottosezioni.Close() Set sottosezioni = Nothing %> <% tipo.Close() Set tipo = Nothing %> <% articoli.Close() Set articoli = Nothing %>