| 
					
							
        
    
        
						
			 | 
			
			
					    
					
        
         
          
         
	
            | Do until - udskriv 3 post, skift linie og ~ Fra : kimweltz | 
  Dato :  08-03-09 02:30 |  
  |  
 
            Hej alle,
 Jeg har et problem i asp.
 Jeg skal have alle mine data ud fra en database. Det er billeder.
 Jeg selecter dem alle sammen, og laver et loop, som udskriver den
 alle sammen på een lang række.
 Jeg vil gerne have 3 stk på hver række, altså således
 Billede Billede Billede<br>
 Billede Billede Billede<br>
 osv. Men hvordan får jeg den til at lave en ny <tr> ved hver
 trejde billede?
 På forhånd tusind tak
 -- 
 Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
  - Pædagogiske tutorials på dansk
  - Kom godt i gang med koderne
 KLIK HER! =>  http://www.html.dk/tutorials
            
             |   |   
            
        
 
            
         
           Jørn Andersen (08-03-2009) 
         
	
            | Kommentar Fra : Jørn Andersen | 
  Dato :  08-03-09 03:19 |  
  |   
            On 08 Mar 2009 01:29:49 GMT, kimweltz <kim@wazted.dk> wrote:
 
 >Jeg skal have alle mine data ud fra en database. Det er billeder.
 >
 >Jeg selecter dem alle sammen, og laver et loop, som udskriver den
 >alle sammen på een lang række.
 >
 >Jeg vil gerne have 3 stk på hver række, altså således
 >
 >Billede Billede Billede<br>
 >Billede Billede Billede<br>
 >
 >
 >osv. Men hvordan får jeg den til at lave en ny <tr> ved hver
 >trejde billede?
 
 Noget i retning af:
 
 i = 0 ' Tæller
 Do While ...
   i = i + 1
   If i Mod 3 = 1 Then
     If i <> 1 Then
       Response.Write "</tr>" & vbcrlf
       End If
     Response.Write "<tr>" & vbcrlf
   End If
 
 ' Udskriv som normalt
 Loop
 
 Til slut skal du så checke, hvad din i er, og fylde op med tomme td'er.
 
 En anden løsning er at styre det ved at floate dine billeder med CSS.
 
 Good luck!
 
 -- 
 Jørn Andersen,
 Brønshøj
  
            
             |   |   
            
        
 
            
         
           kimweltz (08-03-2009) 
         
	
            | Kommentar Fra : kimweltz | 
  Dato :  08-03-09 11:32 |  
  |  
 
            Tusind tak for svaret, jeg forstår det desværre ikke helt. Jeg poster lige
 min source her, og håber du kan vise mig hvor i koden dit udsnit skal
 indsættes
 <strSQL = "select * from XXXX WHERE active = 'yes' order by RAND() DESC
 limit 20"
 Set rs = Conn.Execute(strSQL)
 If rs.bof then
 Response.Write "<b>No subjects in database</b>"
 Else
  DO until rs.eof
 
  %>
             <img src="<% = rs("thumb") %>" width="75" height="44"
 hspace="5" align="left" style="border: 1px solid #976842">
   <%  
 rs.MoveNext
 loop
 End if
 conn.close>
 -- 
 Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
  - Pædagogiske tutorials på dansk
  - Kom godt i gang med koderne
 KLIK HER! =>  http://www.html.dk/tutorials
            
             |   |   
            
        
 
            
         
            Jørn Andersen (08-03-2009) 
         
	
            | Kommentar Fra : Jørn Andersen | 
  Dato :  08-03-09 21:46 |  
  |   
            On 08 Mar 2009 10:31:30 GMT, kimweltz <kim@wazted.dk> wrote:
 
 >Tusind tak for svaret, jeg forstår det desværre ikke helt.
 
 Du starter med at oprette en tæller (i) og sætter dentil 0.
 For hver loop stepper tælleren én frem.
 Check hvad resten er når du dividerer med 3 (Mod-funktionen) - hvis den
 er 1, skal der skiftes række.
 
 >Jeg poster lige
 >min source her, og håber du kan vise mig hvor i koden dit udsnit skal
 >indsættes
 >
 ><strSQL = "select * from XXXX WHERE active = 'yes' order by RAND() DESC
 >limit 20"
 >Set rs = Conn.Execute(strSQL)
 >
 >
 >If rs.bof then
 >Response.Write "<b>No subjects in database</b>"
 >Else
 >
 > DO until rs.eof
 > 
 > %>
 >            <img src="<% = rs("thumb") %>" width="75" height="44"
 >hspace="5" align="left" style="border: 1px solid #976842">
 >  <%  
 >rs.MoveNext
 >loop
 >End if
 >conn.close>
 
 I Else-delen:
 <%
 Response.Write "<table>" & vbcrlf
 i = 0 ' Tæller
 Do until rs.eof
   i = i + 1
   If i Mod 3 = 1 Then
     If i <> 1 Then
       Response.Write "</tr>" & vbcrlf
       End If
     Response.Write "<tr>" & vbcrlf
   End If
 %>
 <td><img src="<% = rs("thumb") %>" width="75" height="44" hspace="5"
 align="left" style="border: 1px solid #976842"></td>
 <%
    rs.MoveNext
 Loop
 Response.Write "</tr>" & vbcrlf
 Response.Write "</table>" & vbcrlf
 %>
 
 Good luck!
 
 -- 
 Jørn Andersen,
 Brønshøj
  
            
             |   |   
            
        
 
            
         
             kimweltz (26-03-2009) 
         
	
            | Kommentar Fra : kimweltz | 
  Dato :  26-03-09 15:58 |  
  |  
 
            Tusind tusind tak. Det løste problemet. Du kan se resultater på Chiko.dk -
 Direkte link er:  http://chiko.dk/games.asp
-- 
 Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
  - Pædagogiske tutorials på dansk
  - Kom godt i gang med koderne
 KLIK HER! =>  http://www.html.dk/tutorials
            
             |   |   
            
        
 
            
         
              Leif Neland (26-03-2009) 
         
	
            | Kommentar Fra : Leif Neland | 
  Dato :  26-03-09 22:42 |  
  |  
 
            kimweltz skrev:
 > Tusind tusind tak. Det løste problemet. Du kan se resultater på Chiko.dk -
 > Direkte link er:  http://chiko.dk/games.asp
> 
 Nydeligt. Så mangler du bare at rette stavefejlene.
 Disse ord skal ikke deles:
 Ko Krigeren
 Pingvin Kast
 Krabbe Krig
 Fugle Jægeren
 Det samme og stavefejl.
 Beskyt dit krabbe teritorium fra de farlige edderkopper
 Stavefejl
 Brug hunden til at lede fårene ind i det rigtige huller så hurtigt du kan
 Stavefejl
 Spis osten og undgå at blive ramt at battet så lang tid du kan
 Leif
            
              |   |   
            
        
 
    
 
					
					 
			 | 
			
				
        
			 |