Id e Querystring

ciao albis, ho l'esigenza di stampare un output in cui dove la tabella di artisti con relativi quadri mi si incolonni come voglio io.
Cioè se un artista ha più di un quadro il recordset mi si deve incolonnare a capo.
Non so se mi spiego, comunque questo è il codice:
<%
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")
Dim strSQL
strSQL = "SELECT * FROM artisti"
objRsArt.Open strSQL, objConn
strSQL = "SELECT * FROM quadri"
objRsQuad.Open strSQL, objConn
Do until objRsArt.EOF
strHTML = ""
%>
<tr>

<td width="31%"><img src="images/transparent.gif" width="1" height="1"></td>
<%
strHTML = "<td width=""17%"" align=""left"">" & objRsArt("Artisti") & "</td>"

objRsQuad.filter = "art_ID=" & objRsArt("art_ID")

do until objRsQuad.EOF

strHTML = strHTML & "<td width=""11%"" align=""left"">" & objRsQuad("quadro") & "</td>"
strHTML = strHTML & "<td width=""11%"" align=""left"">" & objRsQuad("tecnica") & "</td>"
strHTML = strHTML & "<td width=""10%"" align=""left"">" & objRsQuad("anno") & "</td>"
strHTML = strHTML & "<td width=""12%"" align=""left"">" & objRsQuad("dimensioni") & "</td>"
strHTML = strHTML & "<td width=""8%""><a href=""javascript:esempio('immagini.asp?id=" & objRSQuad("ID") & "');"">Immagine</a></td></tr>"

objRsQuad.movenext
loop
Response.Write strHTML
'azzero il filtro
objRsQuad.filter = ""
objRsArt.MoveNext
Loop
%>

</table>
non so se mi sono spiegato.
ciao

Rispondi Quoting

albis

il 18 gennaio 2002 alle 16:17

1.605 messaggi dal 06 settembre 2002

prova così e fammi sapere se ha funzionato

<%
Dim objConn
dim lngContaQuadri
dim blnPrimo
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")
Dim strSQL
strSQL = "SELECT * FROM artisti"
objRsArt.Open strSQL, objConn
strSQL = "SELECT * FROM quadri"
objRsQuad.Open strSQL, objConn
Do until objRsArt.EOF
blnPrimo = true
lngContaQuadri = 0
strHTML = ""
%>
<tr>

<td width="31%"><img src="images/transparent.gif" width="1" height="1"></td>
<%
strHTML = "<td rowspan='0' width=""17%"" align=""left"">" & objRsArt("Artisti") & "</td>"

objRsQuad.filter = "art_ID=" & objRsArt("art_ID")

do until objRsQuad.EOF
lngContaQuadri = lngContaQuadri + 1

if blnPrimo = true then
strHTML = strHTML & "<td width=""11%"" align=""left"">" & objRsQuad("quadro") & "</td>"
strHTML = strHTML & "<td width=""11%"" align=""left"">" & objRsQuad("tecnica") & "</td>"
strHTML = strHTML & "<td width=""10%"" align=""left"">" & objRsQuad("anno") & "</td>"
strHTML = strHTML & "<td width=""12%"" align=""left"">" & objRsQuad("dimensioni") & "</td>"
strHTML = strHTML & "<td width=""8%""><a href=""javascript:esempio('immagini.asp?id=" & objRSQuad("ID") & "');"">Immagine</a></td></tr>"
else
strHTML = strHTML & "<tr><td width="31%"><img src=""images/transparent.gif"" width=""1"" height=""1""></td>"
strHTML = strHTML & "<td width=""11%"" align=""left"">" & objRsQuad("tecnica") & "</td>"
strHTML = strHTML & "<td width=""10%"" align=""left"">" & objRsQuad("anno") & "</td>"
strHTML = strHTML & "<td width=""12%"" align=""left"">" & objRsQuad("dimensioni") & "</td>"
strHTML = strHTML & "<td width=""8%""><a href=""javascript:esempio('immagini.asp?id=" & objRSQuad("ID") & "');"">Immagine</a></td></tr>"
end if

objRsQuad.movenext
loop
strHTML = Replace(strHTML,"rowspan='0'","rowspan='" & lngContaQuadri & "'"
Response.Write strHTML
'azzero il filtro
objRsQuad.filter = ""
objRsArt.MoveNext
Loop
%>

</table>

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA

Rispondi Quoting

franz77

il 21 gennaio 2002 alle 05:31

71 messaggi dal 06 settembre 2002

ciao albis, ti ringrazio
ma con il tuo codice non funziona ugualmente.
L'output dell'ulteriore quadro dell'artista si incolonna all'inizio.

Rispondi Quoting

albis

il 21 gennaio 2002 alle 15:44

1.605 messaggi dal 06 settembre 2002

prova a postare il risultato in html

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA

Rispondi Quoting

franz77

il 22 gennaio 2002 alle 06:40

71 messaggi dal 06 settembre 2002

ecco il risultato in html:
<html>
<head>
<title>quadri</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="stile.css" type="text/css">
</head>

<body bgcolor="#000000" text="#999999">

<div align="center">

<table width="779" border="0" height="255" cellpadding="0" cellspacing="0" >
<tr>
<td width="31%" valign="top" align="left" height="202"><img src="images/logo.jpg" width="245" height="186" border="0"></td>
<td height="202" align="center" valign="baseline" colspan="6"><img src="images/artisti.gif" width="131" height="56"></td>
</tr>
<tr>
<td width="31%" height="26"><img src="images/transparent.gif" width="1" height="1"></td>
<td width="17%" height="26" align="left">
<h4><b><font face="Verdana, Arial, Helvetica, sans-serif">Artista</font></b></h4>
</td>
<td width="11%" height="26" align="left">
<h4><b><font face="Verdana, Arial, Helvetica, sans-serif">Quadro</font></b></h4>
</td>
<td width="11%" height="26" align="left">
<h4><b><font face="Verdana, Arial, Helvetica, sans-serif">Tecnica</font></b></h4>
</td>
<td width="10%" height="26" align="left">
<h4><b><font face="Verdana, Arial, Helvetica, sans-serif">Anno</font></b></h4>
</td>
<td width="12%" height="26" align="left">
<h4><b><font face="Verdana, Arial, Helvetica, sans-serif">Dimensioni</font></b></h4>
</td>
<td width="8%" height="26" align="center"> </td>
</tr>

<tr>

<td width="31%"><img src="images/transparent.gif" width="1" height="1"></td>

<script language=javascript>
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;
}
</script>

<script language=javascript>
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;
}
</script>
<td width="17%" align="left">Nespolo Ugo</td><td width="11%" align="left">prova</td><td width="11%" align="left">pittorica</td><td width="10%" align="left">1998</td><td width="12%" align="left">345</td><td width="8%"><a href="javascript:esempio('immagini.asp?id=7');">Immagine</a></td></tr><td width="11%" align="left">pitture</td><td width="11%" align="left">Mosaico</td><td width="10%" align="left">1997</td><td width="12%" align="left">124</td><td width="8%"><a href="javascript:esempio('immagini.asp?id=12');">Immagine</a></td></tr>
<tr>

<td width="31%"><img src="images/transparent.gif" width="1" height="1"></td>

<script language=javascript>
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;
}
</script>
<td width="17%" align="left">Kostabi Mark</td><td width="11%" align="left">Paesaggio</td><td width="11%" align="left">pittorica</td><td width="10%" align="left">1984</td><td width="12%" align="left">125</td><td width="8%"><a href="javascript:esempio('immagini.asp?id=3');">Immagine</a></td></tr>
<tr>

<td width="31%"><img src="images/transparent.gif" width="1" height="1"></td>
<td width="17%" align="left">davide boccia</td>

</table>
<br><br>

</div>
</body>
</html>

Rispondi Quoting

albis

il 22 gennaio 2002 alle 17:11

1.605 messaggi dal 06 settembre 2002

sicuro di aver fatto come ho detto io compreso
strHTML = "<td rowspan='0' width=""17%"" align=""left"">" & objRsArt("Artisti") & "</td>"
....

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA

Rispondi Quoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7