Problema immagine

[vegra]

Ciao, ho un piccolo problema da risolvere, in questa pagina si visualizza i brani, immagini ascolto e download di artisti musicali
http://www.vegramusic.it/TalentScout/index.asp
Come potete notare sulla destra alcuni artisti non hanno l'immagine del loro CD....
come posso fare per rendere visibile un'immagine standart con scritto "Nessuna immagine" a chi non ha inviato immagini nella propria biografia?
Spero di essermi spiegato

[fero]

se registri su un db il nome dell'immagine inviata basta un if


se il campo è vuoto metti l'img base.....
altrimenti l'img del db

[jet]

<%If nome_immagine="" then%>[img]Nessuna immagine[/img]<img src="nome_immagine".....

[santino83]

se invece non l'immagine non è sul database metti nel tag image:

[img]<%= nome_immagine %>[/img]

[vegra]

Grazie delle vostre risposte....comunque dovra essere su database l'immagine perchè se non c'è l'immagine dovra comunque prendere riferimento all'ID artista..(credo)
ecco lo script che mi consente di visualizare gli ultimi artisti che hanno inserito un brano
<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("\MDB-DATABASE\talentscout\.......mdb")
OBJConn.open
set RS=server.CreateObject("ADODB.Recordset")
Sql="SELECT TOP 5 IDBrano, Artista, Descrizione, Immagine, Titolo, PermettiDownload, Filename FROM UltimoBrano"
If Request("Categoria")<>"" Then sql=sql+" WHERE IDGenere="+CStr(Request("Categoria"))
sql=sql+" ORDER BY IDBrano DESC"
RS.Open Sql,objconn,3,3
If RS.RecordCount > 0 Then
Do While Not Rs.Eof
IDBrano=RS("IDBrano")
Artista=RS("Artista")
Descrizione=RS("Descrizione")
Immagine=RS("Immagine")
Titolo=RS("Titolo")
PermettiDownload=RS("PermettiDownload")
Filename=RS("Filename")
ArrFilename=Split(Filename,".")
Filename=ArrFilename(0)
%>


dove visualizzero l'immagine con <%=Immagine%> cosa aggiungero?

[Mems]

Nella tua cartella immagini metti una bella immagine di cover CD con scritto "No Cover" e la chiami nocover.jpg

Immagine=RS("Immagine") 
if len(Immagine) = 0 then Immagine = "/images/nocover.jpg"

a questo punto, dove deve apparire l'immagine metti:

[img]<%=Immagine%>[/img]

[vegra]

azz...mi va in errore????

Grazie delle vostre risposte....comunque dovra essere su database l'immagine perchè se non c'è l'immagine dovra comunque prendere riferimento all'ID artista..(credo)
ecco lo script che mi consente di visualizare gli ultimi artisti che hanno inserito un brano
<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("\MDB-DATABASE\talentscout\.......mdb")
OBJConn.open
set RS=server.CreateObject("ADODB.Recordset")
Sql="SELECT TOP 5 IDBrano, Artista, Descrizione, Immagine, Titolo, PermettiDownload, Filename FROM UltimoBrano"
If Request("Categoria")<>"" Then sql=sql+" WHERE IDGenere="+CStr(Request("Categoria"))
sql=sql+" ORDER BY IDBrano DESC"
RS.Open Sql,objconn,3,3
If RS.RecordCount > 0 Then
Do While Not Rs.Eof
IDBrano=RS("IDBrano")
Artista=RS("Artista")
Descrizione=RS("Descrizione")
Immagine=RS("Immagine")
if len(Immagine) = 0 then Immagine = "/public/talentscout/copertineCD/nocover.gif"
Titolo=RS("Titolo")
PermettiDownload=RS("PermettiDownload")
Filename=RS("Filename")
ArrFilename=Split(Filename,".")
Filename=ArrFilename(0)
%>

[vegra]

.....a parte l'errore in if len(Immagine) = 0 che non ho messo "" mi va in errore

[Mems]

E l'errore cosa dice?
Posta il codice di tutta l'intera pagina, asp e html. Tutta.

[vegra]

l'errore è
Microsoft VBScript compilation error '800a0409'

Unterminated string constant


ecco l'intera pagina

<%
Set OBJConn = server.createobject("ADODB.Connection")
OBJConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("\MDB-DATABASE\talentscout\--------.mdb")
OBJConn.open
set RS=server.CreateObject("ADODB.Recordset")
Sql="SELECT TOP 5 IDBrano, Artista, Descrizione, Immagine, Titolo, PermettiDownload, Filename FROM UltimoBrano"
If Request("Categoria")<>"" Then sql=sql+" WHERE IDGenere="+CStr(Request("Categoria"))
sql=sql+" ORDER BY IDBrano DESC"
RS.Open Sql,objconn,3,3
If RS.RecordCount > 0 Then
Do While Not Rs.Eof
IDBrano=RS("IDBrano")
Artista=RS("Artista")
Descrizione=RS("Descrizione")
Immagine=RS("Immagine")
Titolo=RS("Titolo")
PermettiDownload=RS("PermettiDownload")
Filename=RS("Filename")
ArrFilename=Split(Filename,".")
Filename=ArrFilename(0)
%>

<table border="0" width="150" style="font-family: Verdana; font-size: 10 px" cellspacing="3" cellpadding="0">
<tr>
<td vAlign="top" width="276" align="center" colspan="2" height="14">
<p align="left"><font color="#FFFFFF">...</font>
</td>
</tr>
<tr>
<td vAlign="top" width="60" align="center" height="54" rowspan="3">
<p align="center">[img]/public/talentscout/copertinecd/<%=Immagine%>[/img]
</td>
<td vAlign="middle" width="216" align="center" height="17">
<p align="left"><font color="#FFFFFF"></font><%=Artista%>
</td>
</tr>
<tr>
<td vAlign="middle" width="216" align="center" height="17">
<p align="left"><font color="#FFFFFF"></font><%=Titolo%>

</td>
</tr>
<tr>
<td vAlign="middle" width="216" align="center" height="18">
<p align="right"><a href="/public/talentscout/mp3/<%=Filename%>.mp3" target="_new">




</td>
</tr>
<tr>
<td vAlign="middle" width="276" align="center" colspan="2" height="14">
<a href="/public/talentscout/mp3/<%=Filename%>.mp3">
[img]../Immagini/struttura/playtrasparente.gif[/img]&Categoria=<%=Request("Categoria")%>&pag=<%=Reques t("pag")%>'"> </a> <%IF PermettiDownload="S" Then
%>
<a href="scarica.asp?file=/public/talentscout/zip/<%=Filename%>.mp30" target="_new">[img]../Immagini/struttura/P-Dow2-2.gif[/img]&Categoria=<%=Request("Categoria")%>&pag=<%=Reques t("pag")%>'">
</a>

<%Else%>
<a href="vota.asp?FROM=VOTO&IDBrano=<%=IDBrano%>&Cate goria=<%=Request("Categoria")%>&pag=<%=Request("pa g")%>">
[img]../Immagini/struttura/P-Dow2off.gif[/img]
</a>
<%End IF%>
</td>
</tr>
<tr>
<td vAlign="middle" width="276" align="center" colspan="2" height="14">
<p align="left"><%=Descrizione%>
</td>
</tr>
<tr>
<td vAlign="middle" width="276" align="center" colspan="2" height="5">
<hr size="1" color="#808080">
</td>
</tr>
</table>
<%
RS.MoveNext
Loop
End If
rs.close
Set RS = Nothing
OBJConn.Close
Set OBJConn = Nothing
%>