|
<%
'Informações sobre o Driver e o caminho para o banco de dados
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")
'Código SQL
sqlstmt = "SELECT * FROM journal ORDER BY id DESC"
'É criado o RecordSet
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
'TotalRecs recebe a quantidade total de registros da tabela
TotalRecs = rs.recordcount
x = 0
'Código usado na exibição dos registros
For x = 1 to 9999
If rs.eof then
Exit For
Else
date1 = rs("pdate")
id = rs("ID")
name1 = rs("pname")
link = "" & date1 & ""
description = name1
%>
|
<% =link%>
--
<% =description%>
|
<%
rs.MoveNext
End If
Next%>
|
|
