Notifikationer

Markér alle som læst Log ud

marie14 Nybegynder

12. juli 2004 - 16:12 Der er 6 kommentarer og
1 løsning

Hit counter

Hej alle
Jeg prøver at bruge denne skabelon til en hitcounter m. database, som jeg har fundet.
Den ser jo ret fornuftig ud, men jeg bliver ved med at få fejlmeldinger på den, såsom:
error '80020009'
Exception occurred.

/default.asp, line 7

scriptet ser sådan her ud:
<% @language="VBscript" %>
<%
strConn ="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
Set objRS = Server.CreateObject("ADODB.RecordSet")
If (Session("Antal") = "") Then
objRS.Open "SELECT * FROM counter", strConn, 2, 3, &H0001
objRS("Antal") = objRS("Antal") + 1

Session("Antal") = objRS("Antal")

If (date = objRS("Dato")) Then
objRS("Antal_dag") = objRS("Antal_dag") + 1
else
objRS("Dato") = date
objRS("Antal_dag") = 1
End if
Session ("Dag") = objRS("Antal_dag")
objRS.Update

objRS.Close
Set objRS = Nothing
End If
%>

<html>
<head>
<title>Counter af: Allan Kørup</title>
</head>

<body>
dag.<br>
<br>
Antal besøgende: <%= Session("Antal") %>.<br>
Antal i dag: <%=Session("Dag") %><br>

</body>
</html>
Mvh. Marie

Synes godt om

vbcoder Nybegynder

12. juli 2004 - 18:49 #1

noget tyder på at du ikke har skriverettigheder til databasen

Synes godt om

marie14 Nybegynder

13. juli 2004 - 14:06 #2

Er det på serveren der ikke er skriverettigheder?
Eller er det måden databasen er lavet på?
Mvh. Marie

Synes godt om

marie14 Nybegynder

14. juli 2004 - 12:33 #3

Jeg har nu prøvet denne, men få denne fejlmelding. Der skulle være skriverettigheder på min mappe på serveren.

Der skulle være oprettet skriverettigheder på den mappe jeg bruger.
Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/counter.asp, line 25

<%@LANGUAGE="VBscript" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<%
Dim objHitConn, strHitSQL, objHitRs, intHits, strHitFile
Set objHitConn = Server.CreateObject("ADODB.Connection")
objHitConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objHitConn.Open Server.MapPath("counter.mdb")
'counter.mdb needs to have a table named
' "Main"
'along with two colunms: "Page" and "Hit
' s"
strHitFile = Request.ServerVariables("url")
strHitSQL = "SELECT Page, Hits From Main Where Page='" & strHitFile & "'"
Set objHitRs = Server.CreateObject("ADODB.Recordset")
objHitRs.Open strHitSQL, objHitConn, 1, 2
if objHitRs.EOF Then
objHitRs.AddNew
intHits = 0
objHitRs.Fields("Page").Value = strHitFile
Else
intHits = objHitRs.Fields("Hits").Value
End if
intHits = CInt(intHits) + 1
objHitRs.Fields("Hits").Value = CStr(intHits)
objHitRs.Update
objHitRs.Close
objHitConn.Close
Set objHitRs = nothing
Set objHitConn = nothing
Call DisplayImg(intHits)
function DisplayImg(intNum)
Dim itmCur, tmpCur
Response.Write "<Img src='images/cnt_start.gif'>"
For itmCur = 1 To Len(intNum)
tmpCur = Mid(cStr(intNum), itmCur, 1)
Response.Write "<Img src='images/cnt_" & tmpCur & ".gif'>"
Next
Response.Write "<Img src='images/cnt_end.gif'>"
End function
%>
</body>
</html>

Synes godt om

vbcoder Nybegynder

14. juli 2004 - 13:18 #4

hvis du selv har adgang til serveren skal du for mappen der indeholder din database klikke med højre musetast -> egenskaber og fanebladet sikkerhed. Der skal iusr_ have skrive rettigheder.

Hvis det er hos en webudbyder skal du af dem have en mappe hvori der er skriverettigheder. Der placerer du din database og selvfølgelig skal dine connections til databasen tilpasses dette nye setup

Synes godt om

marie14 Nybegynder

27. juli 2004 - 09:06 #5

Vedkommende der skal give mig skriverettigheder er på ferie. Er der ikke andre måder, at løse det på?
Kan man samle sine data i en tabel?

Synes godt om

marie14 Nybegynder

03. august 2004 - 10:36 #6

Hej vbcoder
Nå, nu har jeg fået mine skriverettigheder igen og det virker, så du skal have mine point.
Mvh. Marie

Synes godt om

vbcoder Nybegynder

03. august 2004 - 12:48 #7

;-) hej og god sommer

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

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

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