Notifikationer

Markér alle som læst Log ud

Slettet bruger

10. februar 2003 - 11:07 Der er 21 kommentarer

Opdater DB

Hej eksperter
Jeg har fundet denne kode. Kan jeg ændre det således at det fortæller hvornår feltet/tabellen er opdateret i DB og ikke selve ASPsiden.
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile(Server.MapPath("antal.asp"))
Response.Write("Sidst opdateret: " & f.DateLastModified)
set f=nothing
set fs=nothing
%>

Synes godt om

medions Nybegynder

10. februar 2003 - 11:10 #1

http://www.html.dk/tutorials/asp/lektion19.asp
http://www.html.dk/tutorials/asp/lektion20.asp
http://www.html.dk/tutorials/asp/lektion21.asp

læs dem ;o)

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 11:14 #2

Det blev jeg ikke så voldsomt meget klogere af ?

Synes godt om

medions Nybegynder

10. februar 2003 - 11:18 #3

Så tror jeg ik' du har læst dem!

Altså det du vil efter hvad jeg har forstået er at updater noget i din database.

Det som dit script gør er at den ser hvornår en fil på din server sidst er blevet opdateret, så dit script har intet med en database at gøre ;o)

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 11:20 #4

Så har jeg udtrykt mig forkert. Det jeg vil er at vise på ASP siden hvornår den pågældende tabel i DB er opdateret.

Synes godt om

medions Nybegynder

10. februar 2003 - 11:22 #5

Ahh ok. Well, det kan du ikke ud fra et script. Der er du nødt til at oprette en kolonne du fx. kalder Updated og så for hver gang du opdater din database skriver du så en ny dato i feltet.

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 11:28 #6

Det kan jeg ikke, fordi de data der bliver lagt i DB, bliver også indtastet via en ASP siden, og hentet igen på en anden ASPside.

Synes godt om

medions Nybegynder

10. februar 2003 - 11:31 #7

Øhh så kan du da godt! :)

strSQL = "UPDATE tblTabelnavn SET Updated = Date(), Kolonne2 = 'Rune', Kolonne3 = 'www.medions.dk'"

osvosv..

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:00 #8

Jeg får denne fejl hele tiden.
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/log/antal_copy(1).asp, line 20

Koden er:
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0

Dim objConn, objRS, strQ
Dim strConnection

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Data Source=Log;"
strConnection = strConnection & "User ID=sa;Password=;"
objConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
strQ = "SELECT SUM(Antal) AS sum FROM AntalFore"
strQ = "UPDATE Antal SET Updated = Date(), Antal = 'Test'"

objRS.Open strQ

%>

Synes godt om

medions Nybegynder

10. februar 2003 - 12:02 #9

Synes godt om

Slettet bruger

10. februar 2003 - 12:08 #10

Nu ser det ud som det virker, men hvordan får jeg vist det på siden ?
Response.Write objRS("?")

Synes godt om

medions Nybegynder

10. februar 2003 - 12:10 #11

Response.Write(objRs("Updated"))

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:15 #12

Så får jeg denne fejl:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/log/antal_copy(1).asp, line 151

Synes godt om

medions Nybegynder

10. februar 2003 - 12:17 #13

?? Lad mige lige se din kode...

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:19 #14

Response.Write objRS("Sum")
Response.Write(objRs("Updated")

Synes godt om

medions Nybegynder

10. februar 2003 - 12:19 #15

Response.Write objRS("Sum")
Response.Write(objRs("Updated"))

og kan du sagtens udskrive Sum?

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:21 #16

Ja. det går fint og det hjælper ikke hvis jeg sætter to paranteser

Synes godt om

medions Nybegynder

10. februar 2003 - 12:23 #17

Så er Updated ikke oprettet som kolonne i din tabel!

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:37 #18

Nej, du har ret, men nu har jeg oprettet kolonnen i DB. jeg får stadig samme fejl. Koden er nu:
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0

Dim objConn, objRS, strQ
Dim strConnection

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Data Source=Log;"
strConnection = strConnection & "User ID=sa;Password=;"
objConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
strQ = strQ & "UPDATE AntalForecopy SET Updated = Date(), Antal = 'Test'"
strQ = "SELECT SUM(Antal) AS sum FROM AntalForecopy"

objRS.Open strQ

%>
<html>

<head>
<title>Antal</title>
</head>

<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" width="560">
<tr>
<td width="210"></td>
<td width="350"></td>
</tr>
<tr>
<td width="210"><strong><small>Antal total</small></strong></td>
<td width="350"><%
While Not objRS.EOF

Response.Write objRS("Sum")
Response.Write objRS("Updated")

objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>

Synes godt om

medions Nybegynder

10. februar 2003 - 12:39 #19

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0

Dim objConn, objRS, strQ
Dim strConnection

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Data Source=Log;"
strConnection = strConnection & "User ID=sa;Password=;"
objConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
strQ = strQ & "UPDATE AntalForecopy SET Updated = Date(), Antal = 'Test'"
strQ = "SELECT SUM(Antal) AS sum FROM AntalForecopy"

objRS.Open strQ

objRs.Close

strSQL = "SELECT * FROM AntalForecopy"
Set objRs = objConn.Execute(strSQL)

%>
<html>

<head>
<title>Antal</title>
</head>

<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" width="560">
<tr>
<td width="210"></td>
<td width="350"></td>
</tr>
<tr>
<td width="210"><strong><small>Antal total</small></strong></td>
<td width="350"><%
While Not objRS.EOF

Response.Write objRS("Sum")
Response.Write objRS("Updated")

objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>

Prøv sådan...

//>Rune

Synes godt om

Slettet bruger

10. februar 2003 - 12:51 #20

Det giver stadig samme fejl og jeg kan simpelthen ikke se hvor det er det går galt.
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/log/antal_copy(1).asp, line 46

Synes godt om

Slettet bruger

12. september 2007 - 12:03 #21

Lukker

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS