Montar tabela dinamicamente

Renata Pedrosa · Outubro 13, 2009

Pessoal, montei abaixo a exibição das fotos onde eu passo para o script a quantidade

de imagens que deve ser exibida, e gero o nome das imagens de forma incremental 1,2,3,4,5,6 etc...

<%  
conti = 1
contf = cInt(RS_DADOS("quant_img"))

While conti <= contf
%>
  <tr>
   <td width="470" align="left" valign="top">
    <a href="imagens/<%= cStr(conti) %>.jpg" onclick="return parent.GB_showCenter(teste', this.href, 595, 786)">
      <img src="imagens/<%= cStr(conti) %>.jpg" border="0" width="94" height="60">
    </a>
   </td>
  </tr>
<%
 conti = conti + 1
 Wend
%>

Funcionou legal, só que eu queria exibir as imagens lado-a-lado e no máximo 3 imagens em cada linha.

Como faço isso mantendo a geração do nome das imagens como esta?

OBS: sei que não seria nesse forum, mas alguem ja tentou abrir imagens com o greybox de dentro do iframe, ou seja, essa pagina esta dentro de um iframe e quero abrir as imagens com greybox mas não funciona.

obrigado gente!

Ted k' · Outubro 13, 2009

Veja isso:

<%  
conti = 1
contf = cInt(RS_DADOS("quant_img"))

While conti <= contf
%>
  <tr>
  <% i = 1 %>
   <td width="470" align="left" valign="top">
    <a href="imagens/<%= cStr(conti) %>.jpg" onclick="return parent.GB_showCenter(teste', this.href, 595, 786)">
      <img src="imagens/<%= cStr(conti) %>.jpg" border="0" width="94" height="60">
    </a>
   </td>
   <% if i = 3 then %>
  </tr>
<%
 i = 0
 end if
 i = i + 1
 conti = conti + 1
 Wend
%>

delimite sua tabela, e seria ideal você criar uma tabela dentro do loop para segurar mais!

Renata Pedrosa · Outubro 13, 2009

obrigado pela atenção!

mas não funcionou... não apresentou erro mas as imagens continuam sendo 1 em cada linha.

Ted k' · Outubro 13, 2009

coloca sua tabela desde inicio

xanburzum · Outubro 13, 2009

existe um code no lab. de script, que você pode montar sua tabela com x numeros de coluna, você pode inserir a imagem direto nela...

Renata Pedrosa · Outubro 13, 2009

segue toda a tabela:

<table border="0" cellpadding="0" cellspacing="0" width="470">

<%  
conti = 1
contf = cInt(RS_DADOS("quantimg_ab"))
While conti <= contf
%>
  <tr>
    <% i = 1 %>
     <td width="470" align="left" valign="top">     
      <a href="imagens/<%= cStr(conti) %>.jpg" onclick="return parent.GB_showCenter('teste, this.href, 595, 786)">
      <img src="imagens/<%= cStr(conti) %>.jpg" border="0" width="144" height="100"></a>
     </td>
    <% if i = 3 then %>
  </tr>
<%    
i = 0
End If
i = i + 1
conti = conti + 1
Wend
%>
</table>

Veja isso:

<%  
conti = 1
contf = cInt(RS_DADOS("quant_img"))

While conti <= contf
%>
  <tr>
  <% i = 1 %>
   <td width="470" align="left" valign="top">
    <a href="imagens/<%= cStr(conti) %>.jpg" onclick="return parent.GB_showCenter(teste', this.href, 595, 786)">
      <img src="imagens/<%= cStr(conti) %>.jpg" border="0" width="94" height="60">
    </a>
   </td>
   <% if i = 3 then %>
  </tr>
<%
 i = 0
 end if
 i = i + 1
 conti = conti + 1
 Wend
%>

delimite sua tabela, e seria ideal você criar uma tabela dentro do loop para segurar mais!

Mário Monteiro · Outubro 14, 2009

Adapte este post para o seu problema

http://forum.imasters.com.br/index.php?act=findpost&pid=141006

xanburzum · Outubro 15, 2009

você podeusar o create table do SQL para , por exemplo, atraves de um form, o user entrar com os dados e você criar

<%
Dim strSQL
strSQL = "CREATE TABLE test (name varchar(50),age int)"
conn.Execute strSQL
Dim Connect, Info1, strconn, ModuleCode, rs
ModuleCode = request("ModuleCode")
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("students.mdb")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.open strconn
set rs = server.createobject("adodb.recordset")
Info1 = "CREATE TABLE" & ModuleCode & "(name varchar(50), age int)"
rs.open Info1, strconn
Connect.close
Set Connect = nothing

CREATE TABLE Visitas ( Codigo char(5) not null, Nome varchar(50), Email varchar(150), mensagem varchar(255) ,  primary key(codigo))

ou tb direto no HTML

<%	
    	Dim conn
    	Dim cmd
    	Dim rs
    	
    	Set conn = Server.CreateObject("ADODB.Connection")
    	Set cmd = Server.CreateObject("ADODB.Command")
    	
    	cmd.ActiveConnection = "Provider = MSDASQL;Data Source=Northwind;Database=Northwind;User Id=;Password=;"
    	cmd.CommandText = "SELECT * FROM Customers"
    	
    	Set rs = cmd.Execute
    	
    	Response.Write "<table width=100% border=1>" 
    	Response.Write "<tr>" 
    	for i = 1 to rs.Fields.Count - 1
    		Response.Write "<td><strong>" & rs.Fields(i).Name & "<strong></td>" 
    	next
    		Response.Write "</tr>"
    		
    	Do While Not rs.EOF
    			Response.Write "<tr>" 
    		for i = 1 to rs.Fields.Count - 1
    				Response.Write "<td>" & rs.Fields(i) & "</td>" 
    		next
    		rs.MoveNext
    			Response.Write "</tr>"
    	Loop
    			Response.Write "</table>"
    %>

Renata Pedrosa · Outubro 16, 2009

Obrigado pela ajuda gente...RESOLVIDO:

<%

conti = 1

contf = cInt(RS_DADOS("quantimg_ab"))

While conti <= contf

i = 1

%>

<tr>

<% while conti <= contf and i <= 3 %>

<a href="imagens/<%= cStr(conti) %>.jpg" onclick="return parent.gb_image[]">

<img src="imagens/<%= cStr(conti) %>.jpg" border="0" width="144" height="100">

</a>

</td>

<%

i = i + 1

conti = conti + 1

wend

%>

</tr>

<%

Wend

%>

você podeusar o create table do SQL para , por exemplo, atraves de um form, o user entrar com os dados e você criar

<%
Dim strSQL
strSQL = "CREATE TABLE test (name varchar(50),age int)"
conn.Execute strSQL
Dim Connect, Info1, strconn, ModuleCode, rs
ModuleCode = request("ModuleCode")
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("students.mdb")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.open strconn
set rs = server.createobject("adodb.recordset")
Info1 = "CREATE TABLE" & ModuleCode & "(name varchar(50), age int)"
rs.open Info1, strconn
Connect.close
Set Connect = nothing

CREATE TABLE Visitas ( Codigo char(5) not null, Nome varchar(50), Email varchar(150), mensagem varchar(255) ,  primary key(codigo))

ou tb direto no HTML

<%	
    	Dim conn
    	Dim cmd
    	Dim rs
    	
    	Set conn = Server.CreateObject("ADODB.Connection")
    	Set cmd = Server.CreateObject("ADODB.Command")
    	
    	cmd.ActiveConnection = "Provider = MSDASQL;Data Source=Northwind;Database=Northwind;User Id=;Password=;"
    	cmd.CommandText = "SELECT * FROM Customers"
    	
    	Set rs = cmd.Execute
    	
    	Response.Write "<table width=100% border=1>" 
    	Response.Write "<tr>" 
    	for i = 1 to rs.Fields.Count - 1
    		Response.Write "<td><strong>" & rs.Fields(i).Name & "<strong></td>" 
    	next
    		Response.Write "</tr>"
    		
    	Do While Not rs.EOF
    			Response.Write "<tr>" 
    		for i = 1 to rs.Fields.Count - 1
    				Response.Write "<td>" & rs.Fields(i) & "</td>" 
    		next
    		rs.MoveNext
    			Response.Write "</tr>"
    	Loop
    			Response.Write "</table>"
    %>

Arquivado

Montar tabela dinamicamente

Recommended Posts

Renata Pedrosa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Renata Pedrosa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Renata Pedrosa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Renata Pedrosa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante