Script in un oggetto immagine

[Rob2002]

Salve a tutti,

ho questo script su una pagina:

[img]view_plus.asp?IDfoto=<%=RS.fields([/img]" alt="<%= rec.fields("nome_struttura")%> " width="100" border="0">

lo script contenuto nella pagina view_plus.asp è:

_________________________
Dim IDfoto
IDfoto = Request.QueryString("IDfoto")
Dim Conn, RS, SQL
SQL = "SELECT * FROM my WHERE codice = " & IDfoto
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("/database/"& (session("id") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn
Response.ContentType = "image/jpg"
Response.BinaryWrite RS("filedata")

RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
__________________________

Qualcuna sa dirmi come mettere questo script nell'oggetto immagine senza dover puntare alla pagina view_plus.asp?

Vorrei, in altre parole, far eseguire questo script sulla stessa pagina. Ho provato a copiare ed incollare lo script ma escono "cose turche" :master:

Grazie a tutti coloro che mi vorranno suggerire la soluzione.

[willybit]

Originariamente inviato da Rob2002
Qualcuna sa dirmi come mettere questo script nell'oggetto immagine senza dover puntare alla pagina view_plus.asp?

Vorrei, in altre parole, far eseguire questo script sulla stessa pagina. Ho provato a copiare ed incollare lo script ma escono "cose turche" :master:

cosa intendi per "mettere questo script nell'oggetto immagine"???
quello script carica un'immagine da db e la restituisce al client

[Rob2002]

Si, ma volevo ecitare di passare il parametro IDfoto nell'altra pagina.

[willybit]

se l'id è fisso mettilo direttamente nel codice... non capisco cosa vuoi fare :master: :master:

[Rob2002]

L'id non è fisso ma viene chiamato con un ciclo e cambia per ogni record.

Io vorrei mettere solo lo script che ora risiede in un'altra pagina, in quella attuate, ma come avevo accennato non funziona se prima non metto un <img src .....>

Non so se ora è chiaro.

[willybit]

allora...
la situazione attualmente è questa:
la pagina view_plus.asp restituisce un'immagine jpg che risiede in un db, tale immagine viene recuperata dal db tramite un IDfoto passato alla paginain querystring.
In questo modo puoi scrivere in un'altra pagina web

[img]view_plus.asp?IDfoto=1[/img]
[img]view_plus.asp?IDfoto=2[/img]
[img]view_plus.asp?IDfoto=3[/img]

ottenendo 3 immagini ricavate dal db
(questo è solo un esempio, la stessa cosa vale per il ciclo)

Adesso tu cosa vorresti fare?

[Rob2002]

Bene questa è la situazione attuale, ma l'IDfoto lo prelevo da un db e cambia di volta in volta.
Come posso visualizzare la foto senza ricorrere alla pagina view_plus.asp ?

Ho messo lo script nella pagina corrente e non vedo più nulla, come se mi andasse in loop.

[willybit]

Mmmmm.... dovresti salvare su file l'immagine e mettere il percorso dell'immagine appena salvata.... ma non ha tanto senso
il problema sta nel fatto che hai messo le immagini dentro il db... sarebbe meglio mettere solo il percorso dell'immagine nel db e le immagini tenerle su file

se metti il codice della pagina view_plus.asp nel ciclo è normale che faccia casino, quello script non restituisce html al client ma un'immagine

[Rob2002]

Infatti dovrebbe essere così, ma vedi Willy cambiare questa cosa vuol dire tre giorni di lavoro... pertanto devo trovare una soluzione alternativa.

Tra l'altro il problema è che non carica la prima immagine mentre la seconda si( e credo alche la terza e così via...) e non capisco perchè si comporta così.

Ti posto lo script che ho sulla pagina che richiama la pagina view_plus.asp.

_______________________

<%

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & server.mappath("/_private/db.mdb")

Conn.Open (strConn)
Set rec = Server.CreateObject("ADODB.Recordset")
rec.open "select * from hotel order by ID ASC", conn, 3, 3

' ****** ID del record ************
session("id") = rec.fields("id")

If rec.Eof=True or rec.Bof=True then
Response.Write "

Nessun record trovato.</P>"
Else
do while Not rec.EOF = true

%>
[/b]</font>
<table class= "text" width="212" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="108" height="38"> <div align="center">
<%
session("ID") = rec.fields("ID")


' ****** carico l'immagine ********
Dim Conn, RS, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("/database/"& (session("ID") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM my where TIPOLOGIA= 'Home page'"
RS.Open SQL, Conn, 3, 3

%>
<%
DO until RS.eof = true
session("IDfoto") = rs.fields("codice")

'*** verifico se carica le variabili ********
IDfoto = session("IDfoto")
response.Write(IDfoto)
response.Write("/*/")
response.Write(session("id"))
%>

[img]view_plus.asp?IDfoto=<%=RS.fields([/img]" alt="<%= rec.fields("nome")%> " width="100" border="0">
</div></td>
<td width="90"> <div align="center">

<%

RS.MoveNext
rec.MoveNext
Loop
Loop
End if
'Next
'End if
%>
</div></td>
</tr>
</table>
<%

'Clean up...
RS.Close
rec.close
Set RS = Nothing
set rec=nothing
Conn.Close
Set Conn = Nothing

%>
_______________________

Eppure funziona, ma non carica la prima immagine
Ti prego aiutami Willy.