disposizione output video record [urgente/importante]

**Certe Notti** · 15-12-2004, 12:18

salve a tutti,

in un codice del tipo:

codice:

			if not(myRSComS1.EOF) and not(myRSComS1.BOF) then	
		
				do while not(myRSComS1.EOF)	
		%>

	    <table width="500" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>
		  <td>
		  <font face="verdana" size="2" color="#FF0000">
		  <font color="#05326f"><%=myRSComS1("data")%></font><%=myRSComS1("titolo")%>
		  </font>
		  </td>
		 </tr>
		 <tr>
		  <td>
		  <p align="justify">
		  <font face="verdana" size="2" color="#000000">
			<%
			Testoparziale=""
			Testoparziale=myRSComS1("argomento")
			pos=150
            response.write(left(Testoparziale, pos) &"... [Continua]")
			%>
		  </font></p>
		  </td>
		 </tr>
		</table>
	    <table width="500" height="10" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>
		  <td></td>
		 </tr>
		</table>

		<%
					myRSComS1.MoveNext
				loop
			else
		
		%>

ad ogni record si produce una tabella subito a l di sotto di quella precedente.
Ma se io dovessi estrarre da una tabella gli ultimi 4 record inseriti e visualizzarli nel seguente modo:

2 riche e 2 colonne quindi primo record in alto a sinistra, secondo in alto a destra, terzo in basso a sinistra e quanrto in basso a destra struttura a parte che sarebbe

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

come faccio a dirgli di visualizzarli nel modo in cui ho descritto sopra??

Grazie

**Roby_72** · 15-12-2004, 12:33

Devi usare un contatore delle colonne.
Quando il contatore è a due chiudi la riga e ne apri un'altra.

Roby

**Certe Notti** · 15-12-2004, 12:35

Originariamente inviato da Roby_72
Devi usare un contatore delle colonne.
Quando il contatore è a due chiudi la riga e ne apri un'altra.

Roby

t prego spiegati meglio... :master:

**Roby_72** · 15-12-2004, 12:37

Metti una variabile contatore che all'interno del Loop incrementi.
Quando il suo valore è a 2 fai:

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

e lo riazzeri.

Roby

**Certe Notti** · 15-12-2004, 13:00

premetto di non aver capito molto bene comunque presumo tu intenda così:

codice:

	    <table width="500" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>


		<%
 
			'apro la connessione con il db
			set myConn1 = server.CreateObject("ADODB.Connection")
			
			dim strConnDb1
			strConnDb1 = ""
			strConnDb1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
			myConn1.Open(strConnDb1)
					
			mySqlSelect1 = "select TOP 10 * from notizie order by data desc"
			
			set myRSComS1 = server.CreateObject("ADODB.Recordset")
			
			myRSComS1.Open mySqlSelect1, myConn1
				
		        
                        I=0                         
			if not(myRSComS1.EOF) and not(myRSComS1.BOF) then	
		
				do while not(myRSComS1.EOF)	
                                I = I+1

                        if (I<=2) Then       
		%>




	          <td>
                  <font color="#05326f"><%=myRSComS1("data")%></font><%=myRSComS1("titolo")%>

		  <p align="justify">
		  <font face="verdana" size="2" color="#000000">
			<%
			Testoparziale=""
			Testoparziale=myRSComS1("argomento")
			pos=150
                        response.write(left(Testoparziale, pos) &"... [Continua]")
			%>
		  </font></p>
		  </td>


             
		 <%     else %>

                   </tr> 
                   <tr> 



                      <%     end if 					
                              myRSComS1.MoveNext
				loop
			else
		
		%>

		 </tr>
		</table>

non è che mi daresti un'occhiata al codice e mi dici dove sbaglio?

GRAZIE

**SuperMariano81** · 15-12-2004, 13:01

codice:

fuori loop:
conta_colonne = 0

nel loop
conta_colonne = conta_colonne +1
if conta_colonne = 2 then
response.write" </td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>"
conta_colonne = 0
end if

**Certe Notti** · 15-12-2004, 13:03

Originariamente inviato da SuperMariano81

codice:

fuori loop:
conta_colonne = 0

nel loop
conta_colonne = conta_colonne +1
if conta_colonne = 2 then
response.write" </td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td>"
conta_colonne = 0
end if

ok se già ero confuso così non ci capisco na mazza....

rispetto al codice che ho postato io??

**SuperMariano81** · 15-12-2004, 13:07

codice:

    <table width="500" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>


		<%
 
			'apro la connessione con il db
			set myConn1 = server.CreateObject("ADODB.Connection")
			
			dim strConnDb1
			strConnDb1 = ""
			strConnDb1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
			myConn1.Open(strConnDb1)
			conta_colonne = 0
					
			mySqlSelect1 = "select TOP 10 * from notizie order by data desc"
			
			set myRSComS1 = server.CreateObject("ADODB.Recordset")
			
			myRSComS1.Open mySqlSelect1, myConn1
				
		        
                        I=0                         
			if not(myRSComS1.EOF) and not(myRSComS1.BOF) then	
		
				do while not(myRSComS1.EOF)	
						conta_colonne = 			conta_colonne +1
                        if (conta_colonne <= 2) Then       
		%>




	          <td>
                  <font color="#05326f"><%=myRSComS1("data")%></font> <%=myRSComS1("titolo")%>

		  <p align="justify">
		  <font face="verdana" size="2" color="#000000">
			<%
			Testoparziale=""
			Testoparziale=myRSComS1("argomento")
			pos=150
                        response.write(left(Testoparziale, pos) &"... [Continua]")
			%>
		  </font></p>
		  </td>


             
		 <%     else
		 conta_colonne = 0
		 		 %>

                 </td>
                 </tr>
                 <tr>
                 



                      <%     end if 					
                              myRSComS1.MoveNext
				loop
			else
		
		%>

		 </tr>
		</table>

**Certe Notti** · 15-12-2004, 13:11

Originariamente inviato da SuperMariano81

codice:

    <table width="500" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>


		<%
 
			'apro la connessione con il db
			set myConn1 = server.CreateObject("ADODB.Connection")
			
			dim strConnDb1
			strConnDb1 = ""
			strConnDb1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
			myConn1.Open(strConnDb1)
			conta_colonne = 0
					
			mySqlSelect1 = "select TOP 10 * from notizie order by data desc"
			
			set myRSComS1 = server.CreateObject("ADODB.Recordset")
			
			myRSComS1.Open mySqlSelect1, myConn1
				
		        
                        I=0                         
			if not(myRSComS1.EOF) and not(myRSComS1.BOF) then	
		
				do while not(myRSComS1.EOF)	
						conta_colonne = 			conta_colonne +1
                        if (conta_colonne <= 2) Then       
		%>




	          <td>
                  <font color="#05326f"><%=myRSComS1("data")%></font> <%=myRSComS1("titolo")%>

		  <p align="justify">
		  <font face="verdana" size="2" color="#000000">
			<%
			Testoparziale=""
			Testoparziale=myRSComS1("argomento")
			pos=150
                        response.write(left(Testoparziale, pos) &"... [Continua]")
			%>
		  </font></p>
		  </td>


             
		 <%     else
		 conta_colonne = 0
		 		 %>

                 </td>
                 </tr>
                 <tr>
                 



                      <%     end if 					
                              myRSComS1.MoveNext
				loop
			else
		
		%>

		 </tr>
		</table>

ma quel </td> non risulterebbe di troppo?? :master:
non ci si troverebbe un

<td></td></td>

**SuperMariano81** · 15-12-2004, 13:13

effettivamente.... cmq prima provalo

Discussione: disposizione output video record [urgente/importante]

Strumenti discussione

Ricerca discussione

Visualizza

disposizione output video record [urgente/importante]

Permessi di invio