- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Incolonnamento ASP
-
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, 2If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
ElseDo 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
LoopVisualizza.Close
Set Visualizza = Nothing
End If
End If
%>Grazie mille..
Massimo
-
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
LoopVisualizza.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.
-
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
LoopVisualizza.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.
-
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.
-
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, 2If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
Else
%>ciao.
-
puoi copiare l'errore ?
grazie.
-
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, 2If Visualizza.EOF Or Visualizza.BOF Then
Response.Write("Non ci sono articoli per la categoria selezionata.")
ElseDo 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 + 1if Conta = 2 then ' Quando la nostra variabile arriva 2 colonne
Conta = 0
response.write "</tr><tr>"
end ifVisualizza.movenext
loop
Visualizza.Close
Set Visualizza = Nothing
End If
End If
%>
</tr>
</table>@trykel said:
puoi copiare l'errore ?
grazie.