Visualizzazione foto da database

[Altamira]

Ciao a tutti,

ho una pagina che mi visualizza testo e foto prelevando i dati
da un datadase, vorrei fare in modo che se il record non contiene
foto ma solo il testo, non mi visualizzi la classica X.
come posso fare?

grazie a tutti

[Roby_72]

<%if len(rs("foto")) > 0 then%>
[img]....[/img]
<%end if%>

Roby

[Altamira]

Grazie 1000 Roby_72

[Altamira]

Ho questa pagina per fare gli upload, come posso rendere
facoltativo l'upload,(se non ci sono immagini scrivere ugualmente
data titolo e notizia nel database)?

questa è la pagina:

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/db_admin.mdb"),"SELECT Top 1 * FROM tb_offerteIT"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "..\foto\fotonews\"
.Load
.UploadOnly "Images"
If Not .EOF then
.Database.Open()
	While Not .EOF
		.Save
		response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Data") = .Form("Data")
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Notizia") = .Form("Notizia")
			.Database.Fields("Percorso") = .GetFileName
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
.Database.Close
else
 response.write("Nessuna immagine caricata")
end if
End With
Set oUpload = Nothing
%>

[Roby_72]

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/db_admin.mdb"),"SELECT Top 1 * FROM tb_offerteIT"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "..\foto\fotonews\"
.Load
.UploadOnly "Images"
.Database.Open()
If Not .EOF then
	While Not .EOF
		.Save
		response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Data") = .Form("Data")
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Notizia") = .Form("Notizia")
			.Database.Fields("Percorso") = .GetFileName
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
else
			'Inserimento dei valori
			.Database.Fields("Data") = .Form("Data")
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Notizia") = .Form("Notizia")
			.Database.Fields("Percorso") = ""
			'Inserimento
			.Database.AddNew()
end if
.Database.Close
End With
Set oUpload = Nothing
%>

Roby

[Altamira]

ho provato, mi restituisce un pagina bianca,
non mi da nessun errore
ma non mi scrive sul database

[Roby_72]

Hai fatto copia/incolla?

Roby

[Altamira]

si!!

[Roby_72]

Metti un response.write "QUI" dopo l'else per vedere se passa nella seconda parte di codice.

Roby

[Altamira]

si mi visualizza il QUI ma non scrive