Visualizzare immagini

[cardo1959]

Ho creato un database per caricare notizie e relative foto usando lo script baol, fin qui tutto ok con le foto salvate nella cartella public.

Il campo del database è Immagine1

Non ho problemi nel vedere il testo, mentre le ho con le immagini, questo è lo script che uso, chi mi può aiutare?

<%
dim v_login_string
int v_max_righe_pagina
int v_conta_righe
int v_indice
dim p_indice
int v_num_annunci
int v_next_indice
int v_prev_indice
int v_last_indice
int v_num_ultimo

dim v_sql

dim v_colore_cella

v_max_righe_pagina = 1000 ''' Parametro da settare !!!!
v_next_indice = v_max_righe_pagina
v_prev_indice = -1

v_login_string = "Driver={Microsoft Access Driver (*.mdb)};DBQ="+ Server.Mappath("/mdb-database/notizie.mdb")

set rsCnt = Server.CreateObject("ADODB.Recordset")
rsCnt.ActiveConnection = v_login_string
v_sql = "SELECT count(*) as num FROM annunci"

if p_titolo <> "" 
then v_sql = v_sql + " where titolo = '"+p_titolo+"'"
end if
rsCnt.Source = v_sql
rsCnt.Open()
v_num_annunci = rsCnt("num")
rsCnt.close()

set rsAnn = Server.CreateObject("ADODB.Recordset")
rsAnn.ActiveConnection = v_login_string
v_sql = "SELECT * FROM annunci "
if p_titolo <> "" 
then v_sql = v_sql + " where titolo = '"+p_titolo+"'"
end if

v_sql = v_sql + " ORDER BY Id DESC"

rsAnn.Source = v_sql 
rsAnn.Open()
%>

  <%  v_conta_righe = 0
        do while rsAnn.EOF = false and v_conta_righe < v_max_righe_pagina%>
        
        
  

<font >Pubblicata il: <%=rsAnn("data")%></font> 
  <font>da:</font>  <%=rsAnn("Nome")%></p>
  

<%=rsAnn("Titolo")%> </p>
  

<%=rsAnn("Notizia")%> </p>

    <%

v_conta_righe = v_conta_righe + 1
rsAnn.MoveNext()
loop
rsAnn.close()

if v_indice + v_max_righe_pagina > v_num_annunci then
	v_num_ultimo = v_num_annunci
else
	v_num_ultimo = v_indice + v_max_righe_pagina
end if
%>
  </div>

[Roby_72]

<%=rsAnn("Notizia")%> </p>


[img]/public/<%=rsAnn([/img]" /></p>

Roby

[cardo1959]

Funziona grazie era banale mi sembrava di averlo provato, evidentemente avevo scritto male il codice,

visto che ci sono esiste il modo di caricare sempre con baol due o più foto in modo che il nome del file vada nei rispettivi campi?
Ora se metto due campi nel form anche con nomi diversi nel database vengono scritte due righe: una con il nome della prima foto in entrambi i campi la seconda si ripete con il nome della foto in entrambi i campi

'Inserimento dei valori
.Database.Fields("Data") = .Form("Data")
.Database.Fields("Nome") = .Form("Nome")
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Notizia") = .Form("Notizia")
.Database.Fields("Immagine1") = .GetFileName
.Database.Fields("Immagine2") = .GetFileName

[Roby_72]

Si ma devi recuperare preventivamente i nomi delle immagini e poi fare l'inserimento nella base dati.

Roby

[cardo1959]

Ok provo grazie