ciao ragazzi,
non riesco a processare l'Id tramite querystring.
In una pagina stampo a video tutti i record di un db.
Tramite un javascript :
<SCRIPT LANGUAGE="javascript">
function aprifinestra()
{
window.open("immagini.asp?id=<%=objRSQuad("ID")%>","adwindow"," menubar=0,locationbar=no,height=200,width=300");
}
</SCRIPT>
recupero l'Id con
<a href="javascript:aprifinestra()">Immagine</a>
nella pagina immagini.asp ho questo codice:
<%
id = Request.QueryString("id")
if len(id) > 0 and IsNumeric(id) Then
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ= d:\dati\artisti.mdb"
'creazione recordset di artisti e quadri
Dim objRsQuad
Set objRsQuad = Server.CreateObject ("ADODB.Recordset")
Dim strSQL
strSQL = "SELECT [fotogrande] FROM quadri WHERE ID = " & id
objRsQuad.Open strSQL, objConn
%>
<div align="center"> <img src="<%=objRSQuad("fotogrande")%>"> </div>
<%
End If
objRsQuad.Close
Set objRsQuad = Nothing
objConn.Close
Set objConn = Nothing
%>
quindi ad ogni record non mi restituisce
un immagine diversa, ma sempre la stessa.
Come faccio???

si guardando il codice html su ogni link c'è un Id diverso.
ciao e grazie

<b>albis ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote><hr height=1 noshade id=quote>
posta il codice della prima pagina.


FORZA LA MAGICA ROMA
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

Ciao Stregone :O)))
da quanto tempo nn si vede è ??? come butta ??


****** Rome Webmaster *******

eccolo, ho cambiato il javascript e pare che ora funzioni. Solo che devo capire , siccome ho impostato un filtro su due tabelle nel campo"art_ID", come faccio a incolonnare l'output con " Vbcrlf" ?

ecco il codice:
&lt;%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ= d:\www\dati\artisti.mdb"
'creazione recordset di artisti e quadri
Dim objRsArt
Dim objRsQuad
Set objRsArt = Server.CreateObject ("ADODB.Recordset")
Set objRsQuad = Server.CreateObject ("ADODB.Recordset")

'apertura recordset Artisti e Quadri
Dim strSQL
strSQL = "SELECT * FROM artisti"
objRsArt.Open strSQL, objConn
strSQL = "SELECT * FROM quadri"
objRsQuad.Open strSQL, objConn
Do until objRsArt.EOF
%&gt;

&lt;tr&gt;
&lt;td width="31%"&gt;&nbsp;&lt;/td&gt;

&lt;td width="17%" align="left"&gt; &lt;%=objRsArt("Artisti")%&gt; &lt;/td&gt;
&lt;%
objRsQuad.filter = "art_ID=" & objRsArt("art_ID")

do until objRsQuad.EOF

%&gt;
&lt;script language=javascript&gt;
function esempio(str) {
searchWin = window. open(str,'esempio','scrollbars=no,resizable=yes,width=300 ,height=300,status=no,location=no,toolbar=no');

// searchWin.refer = self;
}
&lt;/script&gt;

&lt;td width="11%" align="left"&gt; &lt;%=objRsQuad("quadro")%&gt; &lt;/td&gt;
&lt;td width="11%" align="left"&gt;&lt;%=objRsQuad("tecnica")%&gt; &lt;/td&gt;
&lt;td width="10%" align="left"&gt;&lt;%=objRsQuad("anno")%&gt; &lt;/td&gt;
&lt;td width="12%" align="left"&gt;&lt;%=objRsQuad("dimensioni")%&gt; &lt;/td&gt;
&lt;td width="8%"&gt;&lt;a href="javascript:esempio('immagini.asp?id=&lt;%=objRSQuad("ID")%&gt;')"&gt;Immagine&lt;/a&gt;&lt;/td&gt;
&lt;%
objRsQuad.movenext
loop
'azzero il filtro
objRsQuad.filter = ""
objRsArt.MoveNext
Loop
%&gt;
&lt;/tr&gt;

&lt;/table&gt;
&lt;%
objRsArt.Close
objRsQuad.Close
Set objRsArt = Nothing
Set objRsQuad = Nothing
objConn.Close
Set objConn = Nothing
%&gt;

ciao e grazie