giogio3
04-03-2003, 17:16
ho creato un db access con 3 campi 1)ID, 2)descrizione,3)immagine ed gli ho assegnato un dato "testo"con valore predefinito="0". ma quando vado a testare il file.asp si vede solo la descrizione ma l'immagine come se non esistesse. forse devo mettere l'immagine in un modo diverso?o devosalvarla in una cartella diversa?questo č il codice,cosė potrete aiutarmi:<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/immagine.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from immagine order by id DESC", conn
Do while NOT RS.EOF
%>
<p>
<%
Dim descrizione
descrizione=rs("descrizione")
response.write(descrizione)
%>
<br>
<%
if rs("immagine")="0" then
response.write("Immagine non disponibile")
else
%>
<img src="prova/immagini/<%=rs("immagine") %>" border="0"><% End if %>
</p>
<%
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
%>
grazie
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/immagine.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from immagine order by id DESC", conn
Do while NOT RS.EOF
%>
<p>
<%
Dim descrizione
descrizione=rs("descrizione")
response.write(descrizione)
%>
<br>
<%
if rs("immagine")="0" then
response.write("Immagine non disponibile")
else
%>
<img src="prova/immagini/<%=rs("immagine") %>" border="0"><% End if %>
</p>
<%
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
%>
grazie