Hoje é <% = Date %> Seja bem vindo!
 
      PUBLICIDADE  
 
 
 

<% '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 %> <% rs.MoveNext End If Next%>