Problema con richiamo immagine con asp.

[graograman]

Ciao, mi chiamo Simone ed essendo nuovo ne approfitto per salutare tutti
Mi capita spesso di gironzolare sul vostro sito quando cerco qualcosa su internet e ora eccomi qua, perchè ho bisogno di un aiutino.

Mi è sempre piaciuto costruirte pagine web ma non mi sono mai cimentato più di tanto nell'asp, a parte prendendo esempio da lavori già fatti, quindi non ho molta esperienza e sinceramente il mio lavoro è molto impegnativo e il tempo che posso dedicargli è limitato, per questo spero ci sia qualcuno disposto ad aiutarmi...

Allora arrivo al problema...
A questo indirizzo ho inserito una bacheca annunci costruita completamente in ASP, DUclassified 4.0 è il suo nome.
Per renderla operativa ci ho messo un po' e ho tribulato parecchio .
Ora funziona tutto correttamente, ma volevo fare in modo che nella bacheca principale dove ci sono gli annunci, a fianco (sinistra) dell'annuncio ci sia una miniatura della foto dell'oggetto che ha caricato l'utente, e allo stesso tempo se non c'è nessuna immagine caricata, un logo di default...
Ecco:



Il codice della pagina è questo:

<%
set rsTypes = Server.CreateObject("ADODB.Recordset")
rsTypes.ActiveConnection = MM_connDUclassified_STRING
rsTypes.Source = "SELECT *, (SELECT COUNT(*) FROM ADS WHERE AD_APPROVED=1 AND AD_EXPIRED > DATE() AND AD_TYPE = TYPE_ID) AS AD_COUNT FROM TYPES ORDER BY TYPE_NAME ASC"
rsTypes.CursorType = 0
rsTypes.CursorLocation = 2
rsTypes.LockType = 3
rsTypes.Open()
rsTypes_numRows = 0
%>

<%
Dim HLooper1__numRows
HLooper1__numRows = -2
Dim HLooper1__index
HLooper1__index = 0
rsTypes_numRows = rsTypes_numRows + HLooper1__numRows
%>
<link href="assets/DUclassified.css" rel="stylesheet" type="text/css">
<div class = "links">
<table border="0" cellspacing="2" cellpadding="2" width="100%">

<tr>
<td align="center" valign="middle"> <table width="98%" cellpadding="2" cellspacing="2">
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 2
numrows = -1
while((numrows <> 0) AND (Not rsTypes.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsTypes.EOF))
%>
<td> <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr align="left" valign="middle">
<td width="22">[img]assets/folderIcon.gif[/img]</td>
<td class="textBold"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">"><%=(rsTypes.Fields.Item("TYPE_NAME").Value)% ></font> (<%=(rsTypes.Fields.Item("AD_COUNT").Value)%>)</td>
</tr>
<tr align="left" valign="middle">
<td></td>
<td class="textGray"><%=(rsTypes.Fields.Item("TYPE_DESCRIPTION").Value) %></td>
</tr>
</table></td>
<%
startrw = startrw + 1
rsTypes.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table></td>
</tr>
<tr>
<td align="right" valign="middle" class="text"><a href="http://www.duware.com">Powered
by DUclassified</a></td>
</tr>
</table>
</div>
<%
rsTypes.Close()
%>

Se inserisco questo codice:

[img]../../public/<%=(rsDetail.Fields.Item([/img]">

nel punto dove voglio che esca l'immagine inerente all'annuncio mi da errore.

Questo:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/prova/annunci/inc_default.asp, line 41

Ho provato anche in modi diversi ma patate....
Spero di essere stato il più chiaro possibile e che qualcuno abbia voglia di aiutarmi.... un grazie in anticipo.
In attesa di una vostra risposta

[fraude]

Non hai istanziato correttamente l'oggetto recordset rsDetail

[graograman]

mmm... sto cercando di capirci ma è lunga.....

[cavicchiandrea]

Se apri questo recorset rsTypes set rsTypes = Server.CreateObject("ADODB.Recordset") (vedi in alto nella tua pagina) chiaramente se cerchi di richiamare questo rsDetail da errore perché non è aperto.
Prova cosi <%=(rsTypes.Fields.Item("AD_IMAGE").Value)%> chiaramente nella tabella TYPES (mi sembra che si chiami cosi) deve esserci il campo immagine che si chiama AD_IMAGE.

[graograman]

Forse ho capito, praticamente non ho richiamato la colonna AD_IMAGE contenuta nella Tabella ADS giusto!!? perchè in types non c'è niente.... mmm ora provo intanto ti allego l'immagine del database... ma ce la dovrei fare

[graograman]

Io ci ho provato e riprovato, consultando anche il codice della pagina "dettagli dell'annuncio" dove viene interrogato il database per visualizzare l'indirizzo dell'immagine che l'utente ha inserito...
Ma patate non ci riesco... è tutta mattina che ci provo....

<%
Function DoSpace(str)
DoSpace = (Replace(str, vbCrlf, "
"))
End Function
%>


<%
If Request.QueryString("action") = "sent" Then
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = Request.Form("EMAIL")
MiaMail.To = Request.Form("ad_email")
MiaMail.Cc = Request.Form("EMAIL")
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = Request.Form("SUBJECT")
MiaMail.TextBody = Request.Form("MESSAGE")
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
'MiaMail.Fields("urn:schemas:httpmail:importance") .Value = 2
'MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
End If
%>
<%
set cmClick = Server.CreateObject("ADODB.Command")
cmClick.ActiveConnection = MM_connDUclassified_STRING
cmClick.CommandText = "UPDATE ADS SET AD_VIEWED = AD_VIEWED + 1 WHERE AD_ID = " & Request.QueryString("iAd")
cmClick.CommandType = 1
cmClick.CommandTimeout = 0
cmClick.Prepared = true
cmClick.Execute()
%>
<%
Dim rsCat__MMColParam
rsCat__MMColParam = "1"
If (Request.QueryString("iType") <> "") Then
rsCat__MMColParam = Request.QueryString("iType")
End If
%>
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_connDUclassified_STRING
rsCat.Source = "SELECT * FROM TYPES WHERE TYPE_ID = " + Replace(rsCat__MMColParam, "'", "''") + ""
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>

<%
Dim rsDetail__MMColParam
rsDetail__MMColParam = "1"
if (Request.QueryString("iAd") <> "") then rsDetail__MMColParam = Request.QueryString("iAd")
%>
<%
set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_connDUclassified_STRING
rsDetail.Source = "SELECT * FROM ADS, USERS WHERE AD_ID = " + Replace(rsDetail__MMColParam, "'", "''") + " AND ADS.AD_POSTER = USERS.U_ID"
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 3
rsDetail.Open()
rsDetail_numRows = 0
%>

<link href="assets/DUclassified.css" rel="stylesheet" type="text/css">
<script>
<!--
/*
Required field(s) validation- By NavSurf
Visit NavSurf.com at http://navsurf.com
*/
// Prelevato e spiegato su http://www.web-link.it

function formCheck(formobj){
//1) Inserisci il nome che hai assegnato ai tuoi campi con name
var fieldRequired = Array("NAME", "EMAIL", "MESSAGE");
//2) Inserisci la descrizione del campo da riempire che appare nel messaggio a video
var fieldDescription = Array("Inserisci il tuo nome", "Inserisci la tua Email", "Inserisci il messaggio");
//3) Inserisci il messagio che deve precedere l'elenco dei campi non inseriti.
var alertMsg = "Devi completare tutti i seguenti campi:\n";

var l_Msg = alertMsg.length;

for (var i = 0; i < fieldRequired.length; i++){
var obj = formobj.elements[fieldRequired[i]];
if (obj){
switch(obj.type){
case "select-one":
if (obj.selectedIndex == -1 || obj.options[obj.selectedIndex].text == ""){
alertMsg += " - " + fieldDescription[i] + "\n";
}
break;
case "select-multiple":
if (obj.selectedIndex == -1){
alertMsg += " - " + fieldDescription[i] + "\n";
}
break;
case "text":
case "textarea":
if (obj.value == "" || obj.value == null){
alertMsg += " - " + fieldDescription[i] + "\n";
}
break;
default:
if (obj.value == "" || obj.value == null){
alertMsg += " - " + fieldDescription[i] + "\n";
}
}
}
}

if (alertMsg.length == l_Msg){
return true;
}else{
alert(alertMsg);
return false;
}
}
//-->

</script>
<div class = "links">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="left" valign="middle" class="textBold">HOME
&raquo; "><%= UCase((rsCat.Fields.Item("TYPE_NAME").Value)) %> &raquo; DETTAGLI ANNUNCIO</td>
</tr>
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr>
<td height="16" align="left" valign="middle" class="bgMenu"><%= UCase((rsDetail.Fields.Item("AD_TITLE").Value)) %> (visto <%=(rsDetail.Fields.Item("AD_VIEWED").Value)%> vole)</td>
</tr>
<% If Request.QueryString("action") = "sent" Then %>
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"> <table width="100%" border="0" cellpadding="5" cellspacing="5">
<tr>
<td align="center" valign="middle" class="textBold"><font color="#FF0000">Messaggio spedito!

Sar&agrave; ricontattato da "><%=(rsDetail.Fields.Item("AD_POSTER").Value) %> al pi&ugrave; presto.</font></td>
</tr>
</table></td>
</tr>
<% End If %>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr align="left" valign="middle">
<td width="108" nowrap="nowrap" class="textBold">Pubblicato da:</td>
<td width="224" class="text">"><%=(rsDetail.Fields.Item("AD_POSTER").Value) %></td>
<td width="90" class="textBold">Localit&agrave;:</td>
<td width="511" class="text"><%=(rsDetail.Fields.Item("U_CITY").Va lue)%>, <%=(rsDetail.Fields.Item("U_STATE").Value)%><%=(rs Detail.Fields.Item("U_ZIP").Value)%></td>
</tr>
<tr align="left" valign="middle">
<td width="108" class="textBold">Telefono:</td>
<td class="text"><%=(rsDetail.Fields.Item("U_PHONE").V alue)%></td>
<td width="90" nowrap="nowrap" class="textBold">Fax:</td>
<td nowrap="nowrap" class="text"><%=(rsDetail.Fields.Item("U_FAX").Val ue)%></td>
</tr>
<tr align="left" valign="middle">
<td width="108" class="textBold">Prezzo:</td>
<td class="text">&euro; <%=(rsDetail.Fields.Item("AD_PRICE").Value)%></td>
<td width="90" class="textBold">Quantita:</td>
<td class="text"><%=(rsDetail.Fields.Item("AD_QUANTITY ").Value)%></td>
</tr>
<tr align="left" valign="middle">
<td width="108" class="textBold">Link:</td>
<td class="text">
<% If Len(rsDetail.Fields.Item("AD_LINK").Value) > 12 Then %>
"><%=(rsDetail.Fields.Item("AD_LINK").Value)%>
<% End If %>
</td>
<td width="90" class="textBold">Email:</td>
<td class="text">"><%=(rsDetail.Fields.Item("U_EMAIL").Value)%></td>
</tr>
<tr align="left" valign="middle">
<td colspan="4" class="text">Descrizione Annuncio: <%= DoSpace(rsDetail.Fields.Item("AD_DESCRIPTION").Val ue)%></td>
</tr>
</table></td>
</tr>
<% If NOT rsDetail.Fields.Item("AD_IMAGE").Value = "" Then %>
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"> <table border="0" cellspacing="5" cellpadding="5">
<tr>
<td align="center" valign="middle">[img]../../public/<%=(rsDetail.Fields.Item([/img]"></td>
</tr>
</table></td>
</tr>
<% End If %>
<% If Request.QueryString("action") <> "sent" Then %>
<tr>
<td height="20" align="left" valign="middle" class="bgMenu">Rispondi direttamente a questo Annuncio!</td>
</tr>
<tr>
<form name="REPLY" method="post" action="detail.asp?action=sent&iAd=<%=(rsDetail.Fi elds.Item("AD_ID").Value)%>&iType=<%=(rsDetail.Fie lds.Item("AD_TYPE").Value)%>" onSubmit="return formCheck(this)">
<td align="left" valign="middle" bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="5" cellpadding="2">
<tr align="left" valign="middle">
<td width="90" class="textBold">Rispondi a:</td>
<td class="text"><%=(rsDetail.Fields.Item("AD_POSTER") .Value)%> <input type="hidden" name="ad_email" value="<%=(rsDetail.Fields.Item("U_EMAIL").Value)% >">
</td>
</tr>
<tr align="left" valign="middle">
<td width="90" class="textBold">Tuo Nome:</td>
<td> <input type="text" name="NAME" size="35" class = "form">
</td>
</tr>
<tr align="left" valign="middle">
<td width="90" class="textBold">La tua Email:</td>
<td> <input type="text" name="EMAIL" size="45" class = "form">
</td>
</tr>
<tr align="left" valign="middle">
<td width="90" class="textBold">Oggetto:</td>
<td> <input type="text" name="SUBJECT" value="<%=(rsDetail.Fields.Item("AD_TITLE").Value) %>" size="60" class = "form">
</td>
</tr>
<tr align="left" valign="middle">
<td width="90" valign="top" class="textBold">Messaggio:</td>
<td> <textarea name="MESSAGE" cols="80" rows="12" class = "form"></textarea>
</td>
</tr>
<tr align="left" valign="middle">
<td></td>
<td> <input name="send" type="submit" class = "form" onClick="MM_validateForm('NAME','','R','EMAIL','', 'RisEmail','SUBJECT','','R','MESSAGE','','R');retu rn document.MM_returnValue" value="Rispondi all'annuncio!">
</td>
</tr>
</table></td>
</form>
</tr>
<% End If %>
</table></td>
</tr>
<tr>
<td align="right" valign="middle" class="text"></td>
</tr>
</table>

</div>
<%
rsCat.Close()
Set rsCat = Nothing
%>
<%
rsDetail.Close()
%>

:master:

[cavicchiandrea]

Ma io non conosco l'applicativo ma sei sicuro che non si possano impostare le immagine (anteprime dell'oggetto) da pannello amministratore? Se la risposta è: non si possono impostare il mio consiglio lascia perdere cosi difficilmente risolverai.
Modificare un applicativo che non si ha sviluppato, è difficile per programmatore esperto figuriamoci per novizio, in oltre scervellarsi tanto ne varrebbe veramente la pena?

[graograman]

Purtroppo dal pannello non si può...
va bè se nessuno riesce amen...
magari andando avanti a studiare... per ora grazie tante