Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Tabela Thumbnail Dinâmica

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Este pequeno código permite-lhe ter uma tabela dinâmica com uma pequena descrição abaixo da miniatura. Utiliza um banco de dados para armazenar as informações.

 

<%
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = 'aqui vai sua conexão
adoCon.Open strCon
On Error Resume Next
Const NUM_COLUMNS = 4
Dim EndOfRS
Dim NumRecords
Dim rs
EndOfRS = 0
NumRecords = 0
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = 'aqui sua instrução SQL
rs.CursorType = 2
rs.Open strSQL, adoCon
%>
<html>
<head>
<title>Título aqui</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table border="0" width="100%">
<% 
Do While Not rs.EOF
  NumRecords = NumRecords + 1
  rs.MoveNext
Loop
rs.MoveFirst
Do While NOT rs.EOF %>
  <tr>
<%
  For i=1 to NUM_COLUMNS
	Response.Write("<td width=""" & 100/NUM_COLUMNS & "%"">iamgem, se quiser</td>")
 If rs.EOF Then 
   EndOfRS = 1
   Exit For
 End If
 rs.MoveNext
  Next
  If EndOfRS = 0 Then
	rs.Move -NUM_COLUMNS
 If rs.BOF = True Then
   rs.MoveFirst
 End If
  End If
  If EndOfRS = 1 Then
	rs.MoveFirst
	Temp1 = InStr((NumRecords / NUM_COLUMNS), ".")
 Temp2 = Left((NumRecords / NUM_COLUMNS), Temp1-1)
 Temp3 = Temp2 * NUM_COLUMNS
	rs.Move Temp3
  End If
%>
  </tr>
  <tr>
<%
  For i=1 to NUM_COLUMNS
	Response.Write("<td width=""" & 100/NUM_COLUMNS & "%"">descrição<br><br></td>")
 rs.MoveNext
 If rs.EOF Then Exit For
  Next
%>
  </tr>
<% Loop %>
</table>
</body>
</html>
<%
rs.Close
Set rs = Nothing
Set adoCon = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito