record su colonne

**fanoste** · 23-08-2007, 12:06

Ciao a tutti.
ho un piccolo problema: devo visualizzare i record in una tabella ma anzichè visualizzarli in righe uno sotto l'altro voglio che appaiano su 3 colonne

come modifico il codice?

<%
Dim stream
Dim stream_numRows

Set stream = Server.CreateObject("ADODB.Recordset")
stream.ActiveConnection = MM_streaming_STRING
stream.Source = "select * from video order by idvideo desc"
stream.CursorType = 0
stream.CursorLocation = 2
stream.LockType = 1
stream.Open()

stream_numRows = 0
%>

<table width="100%" border="0" cellspacing="0">
<tr>
<td class="menu">VIDEO</td>
</tr>
<tr>
<td>

<table border="1" width="90">
<% While ((Repeat2__numRows <> 0) AND (NOT stream.EOF)) %>
<tr>
<td><div align="center">[img]video/video/<% =(stream.Fields.Item([/img]" width="80" hspace="10" border="1" align="left" /></div></td>
</tr>
<tr>
<td class="notizie"><div align="center"><%=(stream.Fields.Item("titolo").Va lue)%></div></td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
stream.MoveNext()
Wend
%>
</table>

</td>
</tr>
<tr>
<td></td>
</tr>
</table>

**-AA-** · 23-08-2007, 12:12

ti faccio 1 esempio di come lo faccio io quando voglio N righe o N colonne

codice:

conta = 0
Do while not rs.eof
conta = conta+1

if conta = 0 then
<tr>
end if
<td>pippo</td>

if conta = 4 then
<tr>
conta = 0
end if

rs.movenext
loop

se ti garba ....

**fanoste** · 23-08-2007, 12:31

mi ricordo che tempo fa l'avevo realizzato in asp javascript... adesso mi serve in vbscript come il codice postato sopra.

questo era il cod. in javascript:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
var Repeat1__numRows = 5;
var Repeat1__index = 0;
listaltrisport_numRows += Repeat1__numRows;
%>
<html xmlns="http://www.w3.org/1999/xhtml">

<%
var listaltrisport = Server.CreateObject("ADODB.Recordset");
listaltrisport.ActiveConnection = MM_dbxy_STRING;
listaltrisport.Source = "SELECT * FROM altrisport WHERE ID<(SELECT MAX(ID) FROM altrisport) order by id DESC";
listaltrisport.CursorType = 0;
listaltrisport.CursorLocation = 2;
listaltrisport.LockType = 1;
listaltrisport.Open();
var listaltrisport_numRows = 0;
%>

<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="pagina.css" rel="stylesheet" type="text/css">

</head>

<body>
<table border="0" cellpadding="2" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse; border: 1px solid #0071af; padding:0" align="center">
<tr>
<% while ((Repeat1__numRows-- != 0) && (!listaltrisport.EOF)) { %>
<td class="notizie"><div align="center"><a href="?id=<%=(listaltrisport.Fields.Item("id").Val ue)%>" target="_self">

</a> [img]<% =(listaltrisport.Fields.Item([/img]" width="108" height="84" border="0" align="center" />
<% =(listaltrisport.Fields.Item("data").Value) %>
</div></td>
<%
Repeat1__index++;
listaltrisport.MoveNext();
}
%>
</tr>
</table>

</body>
</html>

<%
listaltrisport.Close();
%>

**-AA-** · 23-08-2007, 12:33

il codice che ti ho scritto sopra è bello che pronto lo devi solo "adattare" ......

**Santino83_02** · 23-08-2007, 14:04

Originariamente inviato da fanoste
mi ricordo che tempo fa l'avevo realizzato in asp javascript... adesso mi serve in vbscript come il codice postato sopra.

ecco bravo, visto che l'hai fatto una volta TU, non dovresti avere problema a tradurlo in vbscript

... sempre che l'altro l'abbia fatto tu....

Discussione: record su colonne

Strumenti discussione

Ricerca discussione

Visualizza

record su colonne

Permessi di invio