Ho il seguente problema :
faccio upload di una foto e vorrei utilizzarla come sfondo di una pagina .
carico la pagina ma devo aver scritto male qualcosa perchè non funziona .
codice:
<% CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
set rs1=Server.CreateObject("ADODB.RecordSet")
qry1="SELECT * FROM prima where num='98';"
rs1.Open qry1,conn
if rs1.eof then
%>
Nessun dato disponibile.
<%
else
%>
<%while not rs1.eof%>
<%set fso = Server.CreateObject("Scripting.FileSystemObject")
strImmagine = "./area_protetta/foto/" & rs1.fields("filename")
if fso.FileExists(Server.MapPath(strImmagine)) then
%>
<body background="[img]<%=strImmagine%>[/img]">
<%
else
%>
Foto <%=rs1.fields("filename")%> non presente
<%
end if
rs1.MoveNext
wend%>