' Abre uma instancia de conexão ADO (banco de dados)
Set strConexao = Server.CreateObject("ADODB.Connection")
strConexao.CursorLocation = 3
strConexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("statsbd/database/ofertas.mdb")
SQL = "SELECT TOP 4 * FROM Noticias ORDER BY ID ASC"
Set strRecordSet = Server.CreateObject("ADODB.Recordset")
strRecordSet.Cursortype = 3
strRecordSet.PageSize = 20
strRecordSet.Open SQL, strConexao, 3, 3
if strRecordSet.EOF = FALSE then
'****************************************************
' VERIFICA SITUAÇÃO DA PAGINAÇÃO
vNAV = Request.QueryString("NAV")
IF vNAV = "" then vNAV = 1
'****************************************************
' VARIAVEL DE INICIO E FIM
vQtdIni = ((20 * cInt(vNAV)) - 20) + 1
vQtdFinal = (20 * (cInt(vNAV) + 1)) - 20
IF vQtdFinal > strRecordSet.RecordCount then vQtdFinal = strRecordSet.RecordCount
%>
<%
strRecordSet.AbsolutePage = vNAV
Cont = 1
Do While (Not strRecordSet.EOF AND Cont <= strRecordSet.PageSize)
IF Cont MOD 2 = 0 then
vFUNDO = "#F0F0F0"
Else
vFUNDO = "#FFFFFF"
End IF
%>
TABELA TABELA TABELA TABELA
<%
Cont = Cont + 1
strRecordSet.Movenext
LOOP %>
<font face="Verdana" size="1"><br>
Páginas: (<%=strRecordSet.RecordCount%>) registros. <%IF strRecordSet.RecordCount > 0 then Response.Write("Mostrando de " & vQtdIni & " a " & vQtdFinal & ".")%><%
Else
Response.Write "Nenhum registro encontrado"
End If
%>
<br>
<a href='<%=Request.ServerVariables("URL")%>?NAV=1'><< Primeiro</a>
<%
vPaginacao = cInt(vNAV) + 4
IF vPaginacao > strRecordSet.PageCount then vPaginacao = strRecordSet.PageCount
For i = cInt(vNAV) - 4 to vPaginacao
IF i <= 0 then i = 1
IF cInt(i) = cInt(vNAV) then
Response.Write("<b><a> ["& i &"] </a></b>")
Else
Response.Write("<font color='#999999' size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='"&Request.ServerVariables("URL")&"?NAV="& i &"'> "& i &" </a></font>")
End IF
Next
%><a href='<%=Request.ServerVariables("URL")%>?NAV=<%=strRecordSet.PageCount%>'>Último >></a></font></font>Onde está escrito tabela eu quero mostrar as tabelas na horizontal mas não to conseguindo pois se eu ponho o codigo da tabela assim.
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="21%"> <tr> <td width="100%"> </td> </tr> </table>Ele me lista os resultado um enbaixo do outro, mas não quero assim quero na horizontal gostaria de saber o que vocês recomendam eu a fazer nisso. valeu gente.
