Salve a tutti
Spero qualcuno possa aitarmi.
Questo, il codice che ho modificato per far inserire un'immagine :
codice:
<%

Dim iPageSize       

Dim iPageCount      

Dim iPageCurrent   

Dim strOrderBy      

Dim strSQL          

Dim RS     

Dim iRecordsShown   

Dim miastringa 

Dim nuovastringa 

iPageSize = 10

If Request.QueryString("page") = "" Then 

                iPageCurrent = 1 

Else 

                iPageCurrent = CInt(Request.QueryString("page")) 

End If 

If Request.QueryString("order") = "" Then 

                strOrderBy = "id" 

Else 

                strOrderBy = Request.QueryString("order") 

End If 

Dim Conn 

Set Conn = Server.CreateObject("ADODB.Connection") 

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/news.mdb") 

Set rs = Server.CreateObject("ADODB.Recordset") 

sql = "SELECT * FROM news ORDER BY " & strOrderBy & " DESC;" 



RS.Open sql, conn, adOpenKeyset 

RS.PageSize = iPageSize 

RS.CacheSize = iPageSize 

iPageCount = RS.PageCount 
Dim totale
totale = rs.recordcount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount 

If iPageCurrent < 1 Then iPageCurrent = 1 
If iPageCount = 0 Then %>
<body bgcolor="#FFFFFF" link="#000000">
<p align=center> <font size="5"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">

  

  *<font color="#FF0000"><font color="#003366">NON CI SONO AUTOVETTURE USATE</font></font>* </font></font></p>


<% Else 

                RS.AbsolutePage = iPageCurrent 
%>
<p align=center> <font size="5"> <font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">USATO AUTOVETTURE</font></font>

  

</p>
<% 

iRecordsShown = 0 

Do While iRecordsShown < iPageSize And Not RS.EOF 

%>
<table border="1" width="600" cellspacing="0" cellpadding="0" align="center">
  <tr align="left" valign="middle"> 
    <td width="11%" height="10"> 
      <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000"><%= rs("data")%></font></div></td>
    <td width="89%" colspan="1" height="10"> 
    <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#000000"><%= rs("titolo")%></font></div>    </td>
</tr></table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <% If rs("titolo") <> "" Then 
       If rs("immagine") <> "" Then %>
    <td width="255" height="0" valign="top">

      

      

      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font color="#003366" size="1" face="Verdana, Arial, Helvetica, sans-serif">MODELLO : </font></div></td>
          <td width="185"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><%= rs("modello")%></font></td>
        </tr>
      </table>
      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font color="#FF0000" size="1"><font color="#003366" face="Verdana, Arial, Helvetica, sans-serif">ANNO</font></font><font color="#003366" size="1" face="Verdana, Arial, Helvetica, sans-serif">:</font></div></td>
          <td width="185"><font color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= rs("anno")%></font></font></td>
        </tr>
      </table>
      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font color="#003366" size="1" face="Verdana, Arial, Helvetica, sans-serif">KM :</font> </div></td>
          <td width="185"><font color="#000000"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= rs("km")%></font></font></td>
        </tr>
      </table>
      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#003366">COLORE :</font></div></td>
          <td width="185"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><%= rs("colore")%></font></td>
        </tr>
      </table>
      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><font color="#003366" size="1">OPTIONAL :</font></font></div></td>
          <td width="185"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><%= rs("opzioni")%></font></td>
        </tr>
      </table>
      <table width="255" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="70"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><font color="#003366" size="1">PREZZO:</font></font></div></td>
          <td width="185"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><%= rs("prezzo")%></font></td>
        </tr>
      </table>
    </td>
    <td width="345" height="30"> 
    <p align="right">

    [img]public/immagini/<%= rs([/img]" width="200" border=0 usemap="#Map">    </p></td>
    <%else%>
    <%end if%>
<%end if%>
</tr>  
</table>
 <div align="center">

   

   <% 

iRecordsShown = iRecordsShown + 1 

RS.MoveNext 

Loop 

End If 
RS.Close 

Set RS = Nothing 

Conn.Close 

Set Conn= Nothing 

%>
     <font face="Verdana, Arial, Helvetica, sans-serif" size="1">Pagina</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> <%= iPageCurrent%> 
     <font size="1">di</font> <%= iPageCount%></font> 
   <% 

If iPageCurrent <> 1 Then 

%>
     <font color="#00FFFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">indietro</font></font>
   <% end if %>
   <%If iPageCurrent < iPageCount Then 

%>
     <a href="eventi.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&form_chiave=<% = prechiave %>&tipo=<% = tipo %>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">avanti 
  &gt;</font></a> 
   <% end if %>
</div>

il problema che non riesco a risolvere ( dato che ci potranno essere infinite immagini )
como posso far cliccare sull'imagine e mandarla ad un'altro link per farla vedere ingrandita

Spero qualcuno mi aiuti.