Incolonnamento ASP

massimo.c

Incolonnamento ASP

Buon giorno a tutti ed un grazie a chi mi potrà aiutare, io dovrei mettere su due colonne la risultanza di questa pagina asp cioè vorrei che il testo apparisse appena sotto la immagine e che fossero incolonnati per 2.. posto il codice:
<%
If request.QueryString ("CategoryID") <> "" Then
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source = " & server.mappath("/mdb-database/catalogo.mdb")
Conn = cnProvider & cnDataSource
Sql = "SELECT * FROM Products where SubCategoryID = " & request.QueryString ("CategoryID") & " Order By ProductID Desc ; "
Set Visualizza = Server.CreateObject("ADODB.Recordset")
Visualizza.Open Sql, Conn, 1, 2

If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
Else

Do While Not Visualizza.EOF
%>
<a href="informazioni.asp?cid=<%=Request.QueryString("cid")%>&ProductID=<%=Visualizza("ProductID")%>" target="_parent"><%= Visualizza("ProductName")%>
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66">
</a>
<%
Visualizza.MoveNext
Loop

Visualizza.Close
Set Visualizza = Nothing
End If
End If
%>

Grazie mille..
Massimo

trykel

Potresti utilizzare le tabelle HTML.
[html]
<table width="100%">
<%
Do While Not Visualizza.EOF
%>
<tr><td>
<a href="informazioni.asp?cid=<%=Request.QueryString( "cid")%>&ProductID=<%=Visualizza("ProductID")% >" target="_parent"><%= Visualizza("ProductName")%>
<br>
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66">
</a></td>
<%
Visualizza.MoveNext
If Visualizza.EOF then
%>
<td></td></tr>
<%
exit loop //non uso classic ASP non sono certo si esca con exit loop
end if
%>
<td>
<a href="informazioni.asp?cid=<%=Request.QueryString( "cid")%>&ProductID=<%=Visualizza("ProductID")% >" target="_parent"><%= Visualizza("ProductName")%>
<br>
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66">
</a></td>
</tr>
<%
Visualizza.MoveNext
Loop

Visualizza.Close
Set Visualizza = Nothing
End If
End If
%>
</table>
[/html]

la struttura HTML è la seguente:
[html]
<table width="100%">
<tr>
<td> testo <BR> foto</td>
<td> testo <BR> foto</td>
</tr>
</table>
[/html]

ciao.

massimo.c

Ok ho visto,
però così come è non funziona in quanto manca tutta la parte SQL dove dovrei posizionarla?

@trykel said:

Potresti utilizzare le tabelle HTML.
[html]
<table width="100%">
<%
Do While Not Visualizza.EOF
%>
<tr><td>
<a href="informazioni.asp?cid=<%=Request.QueryString( "cid")%>&ProductID=<%=Visualizza("ProductID")% >" target="_parent"><%= Visualizza("ProductName")%>
<br>
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66">
</a></td>
<%
Visualizza.MoveNext
If Visualizza.EOF then
%>
<td></td></tr>
<%
exit loop //non uso classic ASP non sono certo si esca con exit loop
end if
%>
<td>
<a href="informazioni.asp?cid=<%=Request.QueryString( "cid")%>&ProductID=<%=Visualizza("ProductID")% >" target="_parent"><%= Visualizza("ProductName")%>
<br>
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66">
</a></td>
</tr>
<%
Visualizza.MoveNext
Loop

Visualizza.Close
Set Visualizza = Nothing
End If
End If
%>
</table>
[/html]

la struttura HTML è la seguente:
[html]
<table width="100%">
<tr>
<td> testo <BR> foto</td>
<td> testo <BR> foto</td>
</tr>
</table>
[/html]

ciao.

trykel

Ho tralasciato tutta la parte precedente a:

Do While Not Visualizza.EOF

perchè non necessita modifiche.

la parte mancante è:


<%
If request.QueryString ("CategoryID") <> "" Then
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source = " & server.mappath("/mdb-database/catalogo.mdb")
Conn = cnProvider & cnDataSource
Sql = "SELECT * FROM Products where SubCategoryID = " & request.QueryString ("CategoryID") & " Order By ProductID Desc ; "
Set Visualizza = Server.CreateObject("ADODB.Recordset")
Visualizza.Open Sql, Conn, 1, 2
 
If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
Else
%>

ciao.

massimo.c

Azzi..purtroppo non funziona....mi viene restituito un erroe interno al server, non è che posso decidere io in quante colonne fare visualizzare la mia pagina....

@trykel said:

Ho tralasciato tutta la parte precedente a:

>Do While Not Visualizza.EOF

>```
perchè non necessita modifiche.
 
la parte mancante è:

<%
If request.QueryString ("CategoryID") <> "" Then
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source = " & server.mappath("/mdb-database/catalogo.mdb")
Conn = cnProvider & cnDataSource
Sql = "SELECT * FROM Products where SubCategoryID = " & request.QueryString ("CategoryID") & " Order By ProductID Desc ; "
Set Visualizza = Server.CreateObject("ADODB.Recordset")
Visualizza.Open Sql, Conn, 1, 2

If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
Else
%>

ciao.

trykel

puoi copiare l'errore ?

grazie.

massimo.c

Ciao Trikel ho risolto così dopo...una sudata.......:)
<table align="center" cellpadding="4" cellspacing="4" width="80%">
<tr>
<%
If request.QueryString ("CategoryID") <> "" Then
cnProvider = "Provider=Microsoft.JET.OLEDB.4.0;"
cnDataSource = "Data Source = " & server.mappath("/mdb-database/catalogo.mdb")
Conn = cnProvider & cnDataSource
Sql = "SELECT * FROM Products where SubCategoryID = " & request.QueryString ("CategoryID") & " Order By ProductID Desc ; "
Set Visualizza = Server.CreateObject("ADODB.Recordset")
Visualizza.Open Sql, Conn, 1, 2

If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
Else

Do While Not Visualizza.EOF
%>
<td align="center" width="50%">
<img src="../public/catalogo/<%=visualizza("image")%> "border="0" alt="" width="100" height="66"><br/>
<a href="informazioni.asp?cid=<%=Request.QueryString("cid")%>&ProductID=<%=Visualizza("ProductID")%>" target="_parent"><%= Visualizza("ProductName")%>
</a>
</td>
<%
Conta = Conta + 1

if Conta = 2 then ' Quando la nostra variabile arriva 2 colonne
Conta = 0
response.write "</tr><tr>"
end if

Visualizza.movenext
loop
Visualizza.Close
Set Visualizza = Nothing
End If
End If
%>
</tr>
</table>

@trykel said:

puoi copiare l'errore ?

grazie.