Hej
Jeg har en database hvor indholdet bliver lagt på nettet. Nu vil
jeg gerne trække tidsstemplet fra access-databasen om hvornår
filen sidst er ændret ud, og bruge det til at fortælle hvornår
databasen sidst er ændret. Jeg har en plan om at bruge
"ShowDateCreated", men kan ikke få det til at virke. Er der nogen
derude, som kan give et eksempel på hvordan det kan se ud, og
hvor i dokumentet det skal stå?
Herunder ses dokumentet, som det ser ud nu. Mit forsøg, står
mellem stjernerne.
På forhånd tak!
MVH. Thomas
<html>
<head>
<title>Hente data fra database</title>
<link rel="stylesheet" type="text/css" href="style3.css">
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("CP_rep_Data.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "SELECT CP_rep_nr, LI_rep_nr, Enhed, Projekt, Modtaget,
Serie_nr, Forventet_lev FROM tabel1 WHERE Afsendt is Null"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Gennemløb Recordset (rs) med en løkke
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write
"<tr><th>CP_rep_nr</th><th>LI_rep_nr</th><th>Enhed</th><th>Projek
t</th><th>Modtaget</th><th>Serienr.</th><th>Forventet_lev</th></t
r>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("CP_rep_nr") & "</td>"
Response.Write "<td>" & rs("LI_rep_nr") & "</td>"
Response.Write "<td>" & rs("Enhed") & "</td>"
Response.Write "<td>" & rs("Projekt") & "</td>"
Response.Write "<td>" & rs("Modtaget") & "</td>"
Response.Write "<td>" & rs("Serie_nr") & "</td>"
Response.Write "<td>" & rs("Forventet_lev") & "</td></tr>"
rs.MoveNext
Loop
end if
****************************
Function ShowDateCreated()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile "CP_rep_Data.mdb"
ShowDateCreated = f.DateCreated
End Function
*****************************
%>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! =>
http://www.html.dk/job