Posto la pagina, non spaventarti x gli errori, ma almeno ci capiamo meglio:
codice:
<div id="boxtrasparente" style="background-color:black;background-image: url('none')"><%
Dim Conn,rs,idf,paged, pidi
idf = request.querystring("idf")
pidi = request.querystring("ref")
paged = request.querystring("paged")
catd = request.querystring("cat")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/images.mdb")
set rs=server.createObject("Adodb.recordset")
sql="select * from images WHERE id = " & idf & ""
rs.Open sql, conn, 3, 3
do while not rs.eof%>
<%dim cat
cat = rs(4)
if cat = 1 then
cat = "paesaggi"
elseif cat = 2 then
cat = "natura"
elseif cat = 3 then
cat = "varie"
elseif cat = 4 then
cat = "bw"
elseif cat = 6 then
cat = "serie/kos"
elseif cat = 7 then
cat = "serie/engadina"
elseif cat = 8 then
cat = "serie/laghi"
elseif cat = 9 then
cat = "serie/zoobasel"
elseif cat = 10 then
cat = "serie/prague"
elseif cat = 12 then
cat = "serie/zoobasel2"
end if
%>
<div id="image_<%=rs(5)%>">
<p style="text-align: center">
<a href="javascript: history.back(-1)">
<%if rs(5) = "o" then%>
[img]images/fotografie/<%=cat%>/<%=rs(1)%>[/img] l <%=rs(3)%>" width="560">
<%else%>
[img]images/fotografie/<%=cat%>/<%=rs(1)%>[/img] l <%=rs(3)%>" height="560">
<%end if%>
</a>
</p>
<div id="showimage_<%=rs(5)%>">
<span style="font-size:9px;color:#666666">ATTREZZATURA:</span> <%=rs(3)%>
<span style="font-size:9px;color:#666666">INTERESSATO AD UNA STAMPA DI QUALITÀ IN FORMATO A4 DI QUESTA FOTO?</span>
Clicca qui
</p>
</div></div>
</div>
<div id="bottom">
l<%
if catd = 1 then
response.write("PAESAGGI")
elseif catd = 2 then
response.write("NATURA")
elseif catd = 3 then
response.write("VARIE")
elseif catd = 4 then
response.write("BLACK & WHITE")
elseif catd = 5 then
response.write("SERIE")
elseif catd = 6 then
response.write("KOS, GRECIA")
elseif catd = 7 then
response.write("ENGADINA, SVIZZERA")
elseif catd = 8 then
response.write("LAGO DI COMO E CERESIO")
elseif catd = 9 then
response.write("ZOO BASEL, SVIZZERA")
elseif catd = 10 then
response.write("PRAGUE, REPUBBLICA CECA")
elseif catd = 12 then
response.write("ZOO BASEL, SVIZZERA")
end if%>
<%RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing %>
l<span style="font-size:7pt">
<%Dim avanti, indietro
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/images.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT TOP 1 * FROM images WHERE categoria = " & catd & " AND id = " & idf & " ORDER BY id ASC"
avanti = rs(0)+1
indietro = rs(0)-1
%>
INDICE
<<
>>
</span>
<%
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing %>
</div>