codice:
<%
Dim id
id = request.queryString("id")
if len(id) > 0 and isNumeric(id) then
id = cLng(id)
else
id = 1
end if
Dim recordPerId
recordPerId = 1
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/link.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from link", conn, 1, 3
RS.pageSize = recordPerId
RS.absolutePage = id
If Not RS.eof then
for i = 1 to recordPerId
if rs.eof then exit for
%>
<%
Dim descrizione
descrizione = rs("descrizione")
response.write(descrizione)
%>
<%
Dim link
link=rs("link")
%>
<% response.write(link) %>
<%
Dim foto
foto=rs("foto")
%>
[img]<%=foto%>[/img]
</p>
<%
rs.moveNext
next
end if
RS.Close
Set RS = Nothing
conn.Close
Set conn = Nothing
%>
Aggiungi poi un campo "foto" alla tabella.
Per ogni record inserisci il nome dell'immagine con il path: ad esempio se l'immagine la metti nella cartella public nel campo "foto" scriverai "/public/image.jpg".
Roby