Como q posso abrir mais rapido isso !??? Valeuuu !
Olhem ai o código:
<%@ Language = VbScript %>
<% Option explicit %>
<!--#include file="conexao.asp"-->
<!--#include file="adovbs.inc"-->
<%
Dim sql
sql = "select * from info order by id Desc"
Dim objRS
set objRS = server.createobject("adodb.recordset")
objRS.open sql, objConn
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Sistema
de Verificação de login </font></div></td>
</tr>
</table>
<br>
<tr>
<td width="100%">
<table width="500" height="37" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
<%
if objRS.eof then
%>
<font size="1" face="Verdana"> </font>
<tr>
<td width="18%"> <font size="2" face="Verdana"><b>
<%
end if
Do while not objRS.eof
%>
</b></font><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS("user") %>
</font>
<td width="14%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS("acao") %>
</font>
<td width="22%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS("pagina") %>
</font>
<td width="19%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS("Data") %>
</font>
<td width="27%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= objRS("ip") %>
<b>
<%
objRS.movenext
%>
</b>
<%
loop
%>
</font>
</table>
</center>
</div>
</div>
<%
objRS.close
set objRS = nothing
objConn.close
set objConn = nothing
%>
Edição feita por: Bokinha, 07/10/2003, 01:12.