Dividir Em Colunas

[rafaeltejeda]

galerinha tem como dividir os registros vindo de um bd em colunas, já tentei achar alguma coisa aqui no forum mas sem sucesso

atenciosamente .

[bareta]

aqui no forum tem sim.... use um if e beleza

[Deividy]

se procura algo assim

http://scriptbrasil.com.br/forum/index.php...45entry166152

[ursolouco]

Brother!!

Nâo esqueça do arquivo adovbs.inc

<%
	pagina = Request.QueryString("pagina")
	If(Not isNumeric(pagina)) Then Pagina = 1
	If(isNull(pagina))       Then Pagina = 1
	If(isEmpty(pagina))       Then Pagina = 1

	Call gPaginacao("SELECT * FROM tb_produtos", 20, 3, Pagina)

	Sub gPaginacao(SQL, numReg, numCol, Pagina)  	
  	If(Not isNumeric(pagina)) Then Pagina = 1
  	If(isNull(pagina))    Then Pagina = 1
  	If(isEmpty(pagina))    Then Pagina = 1
  	pagina  = cint(pagina)
  	'strConn = "DRIVER=MySQL ODBC 3.51 Driver;UID=root;STMT=;OPTION=;SOCKET=;PORT=;PASSWORD=;SERVER=localhost;DATABASE=northwind;DESC=" 
  	strConn = "DSN=localhost"
  	Set conn = CreateObject("adodb.connection")
  	conn.Open(strconn)
  	Set Rs = Server.CreateObject("adodb.recordset")
  	rs.ActiveConnection = conn
  	rs.CursorType = adOpenStatic
  	rs.CursorLocation = AdUseClient 
  	rs.PageSize = numReg
  	rs.Open SQL
  	NumeroPaginas = rs.PageCount
  	If(Pagina > 0) Then  
     if(pagina > NumeroPaginas) then
     pagina = NumeroPaginas
     Else
     pagina = cint(pagina)
     end if 
  	Else
     pagina = 1
  	End if
  	Rs.AbsolutePage = Cint(pagina)  	
  	Vetor = rs.getrows()
  	Response.Write "<table border='1' cellpadding='5' width='500' align='center'>"
  	while(Z <= Ubound(Vetor, 2) And Z <= numReg)
    response.write "<tr>"
    For C= 1 To numCol
    	if(Z <= ubound(Vetor, 2)) Then
      response.write "<td>"
      response.write vetor(12, (Z))
      response.write "</td>"
      Z = Z + 1
    	else
      response.write "<td>&nbsp;"      
      response.write "</td>"
      exit for
    	End if
    Next
    response.write "</tr>"
  	wend
  	Response.Write("</table>")

  	Response.Write "<table border='1' cellpadding='5' width='500' align='center'>"
  	response.Write "<tr>"
  	if(Pagina > 1)Then
    Call GerarLinkAnterior(Pagina)
  	End if
  	
  	leftStart = Pagina - 5
  	rightEnd  = Pagina + 5
  	
  	For I = 1 To NumeroPaginas
       response.Write "<td align='center'"
       If(cint(pagina) = I) Then
       Response.Write " bgcolor='#F3F3F3'"
       End If
       response.Write ">"
       response.Write "<a href="""& Request.ServerVariables("SCRIPT_NAME") & "?pagina="&I&"" &""">"& I &"</a>"
       response.Write "</td>"

  	Next
    Call GerarProximoLink(Pagina)
  	response.Write "</tr>"
  	Response.Write "</table>"
  	rs.Close
  	set rs = nothing 
  	conn.Close()
  	set conn = nothing  
	End Sub	

	Sub GerarProximoLink(Pagina)
  With Response
  	.write "<td>"
  	.write "<a href='"& Request.ServerVariables("SCRIPT_NAME")&"?pagina="&(Pagina + 1)&"'>"
  	.write " >> "
  	.write "</a>"
  	.write "</td>"
  End With	
	End Sub

	Sub GerarLinkAnterior(Pagina)
  With Response
  	.write "<td>"
  	.write "<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?pagina="&(Pagina - 1)&"'>"  	
  	.write " << "
  	.write "</a>"
  	.write "</td>"
  End With	
	End Sub

%>

[bareta]

alguém ai pode me dizer pra que serve o adovbs.inc???? que não sei ainda?? hehehehehe