global.asa

Som den siger, så opretter du ikke et objekt conn

/askhoej

Application("Conn") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\db\dbase.mdb;"

Skal erstattes med

Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\db\dbase.mdb;"

den kommer stadig med samme fejl...

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\db\dbase.mdb;"

nu får jeg fejlen:

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not find installable ISAM.
/bjarke/global.asa, line 6


...linie 6:

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\Web\bjarke\db\dbase.mdb;"

Det kunne lyde som manglende rettigheder for din anonymous access bruger.

nej, der er en bruger med pass, har bare ikke postet den her på Eksperten

Prøv denne her global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application.Lock

Application.Contents("dbconn")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Web\bjarke\db\dbase.mdb;"


Application.Unlock
End Sub

Sub Session_OnStart



strIP = Request.ServerVariables("REMOTE_ADDR")
strBROW = Request.ServerVariables("HTTP_USER_AGENT")

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "INSERT INTO brugerinfo (ip, browser) VALUES("' & strIP & '", "' & strBROW & '")"

conn.execute(sql)
Conn.Close
Set Conn = Nothing


End Sub


Sub Session_OnEnd

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "DELETE FROM brugerinfo WHERE ip = '" & strIP & "'"

conn.execute(sql)
Conn.Close
Set Conn = Nothing

End sub


</SCRIPT>


Det er en lettere modificeret udgave af den jeg bruger.

<< teamdev, bruger du også access 2000?

jeps

får fejlen igen:

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not find installable ISAM.
/bjarke/global.asa, line 20


linie 20: conn.open application("dbconn")

hmm underligt, er dette ikke rigtigt:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application.Lock

Application.Contents("dbconn")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Web\bjarke\db\dbase.mdb; UID=administrator; PWD=password"


Application.Unlock
End Sub

Sub Session_OnStart



strIP = Request.ServerVariables("REMOTE_ADDR")
strBROW = Request.ServerVariables("HTTP_USER_AGENT")

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "INSERT INTO brugerinfo (ip, browser) VALUES("' & strIP & '", "' & strBROW & '")"

conn.execute(sql)
Conn.Close
Set Conn = Nothing


End Sub


Sub Session_OnEnd

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "DELETE FROM brugerinfo WHERE ip = '" & strIP & "'"

conn.execute(sql)
Conn.Close
Set Conn = Nothing

End sub


</SCRIPT>

Du skriver der er bruger med password. Betyder det at du kører med Windows authentication på IIS eller kører du med Anonymous Access ?

ok jeg bruger ikke en bruger med password, men jeg bruger den indbygget password funktion der er indbygget i access.

;o)... siger det samme to gange... "indbygget funktion, indbygget i access"

Mærkeligt. Nu har jeg lavet min global.asa fuldstændig som ovenfor og oprettet databasen. Og jeg får ingen fejl. Til gengæld bli'r der heller ikke hældt data i basen ?!?

Det jeg mente med manglende rettigheder var (og er :-), at hvis du kører med anonymous access kunne fejlen "Could not find installable ISAM" indikere at brugeren IUSR_MASKINNAVN ikke har rettigheder til .mdb filen.

//tmceu
Det lyder faktisk meget plausibelt :-)

... jamn jeg har andre admin sider hvor jeg skriver/læser fra databasen.

men hvis jeg skal gøre så alle computere skal kunne skrive til databasen, hvordan gør jeg så det?

Det er jeg ikke helt sikker på men du kan jo prøve at tilføje dette:

Mode=Share Deny None;

til connectionstringen sådan her:

Application.Contents("dbconn")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Web\bjarke\db\dbase.mdb;Mode=Share Deny None;"

Ellers kan du jo også prøve at fjerne password fra databasen.
Under security/sikkerhed -

der kan man administrere grupper og brugere

ok, nu får jeg en ny fejl:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in INSERT INTO statement.
/bjarke/global.asa, line 24

...linie 24:

conn.execute(sql)

hello... anyone?

Prøv med denne SQL der var byttet rundt på " og '

sql = "INSERT INTO brugerinfo (ip, browser) VALUES('" & strIP & "', '" & strBROW & "')"

JAAAH... problemet er løst efter en måned... er der så en der kan fortælle mig hvordan man sætter en timeout på... fx 1min?

Så Session? så det

Session.Timeout = 1 'angives i minutter

//eagleeye , hvor sætter jeg det ind henne?

hellow...

i Sub Session_OnStart:

Sub Session_OnStart
Session.Timeout = 1

hmm... et sidste spm:

hvis nu i kigger på min kode, så når brugeren lukker browser vinduet, så bliver info om brugeren jo ikke slettet, eller gør den?

Fordi jeg skriver:

sql = "DELETE FROM brugerinfo WHERE ip = '" & strIP & "'"

... og hvis nu brugeren ikke er logget på mere, så kan den vel ikke finde strIP ??

Ja men Session_OnEnd skulle så gerne blive kaldt inden.

The Session_OnEnd event occurs when a session is abandoned or times out.

hmm... der bliver nemlig ikke slettet noget.

min global.asa ser sådan ud nu:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application.Lock

Application.Contents("dbconn")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Web\bjarke\db\dbase.mdb;Mode=Share Deny None;"


Application.Unlock
End Sub

Sub Session_OnStart
Session.Timeout = 1

strIP = Request.ServerVariables("REMOTE_ADDR")
strBROW = Request.ServerVariables("HTTP_USER_AGENT")

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "INSERT INTO brugerinfo (ip, browser) VALUES('" & strIP & "', '" & strBROW & "')"

conn.execute(sql)
Conn.Close
Set Conn = Nothing


End Sub


Sub Session_OnEnd

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

sql = "DELETE FROM brugerinfo WHERE ip = '" & strIP & "'"

conn.execute(sql)
Conn.Close
Set Conn = Nothing

End sub


</SCRIPT>

du kan se det her:

http://80.62.178.51/bjarke/html/info.asp

Hvor defienre du strIP ??

Når du kommer ind i Session_OnEnd bruger du bare strIP !! og jeg kan ikke de den er defineret. Su skal nok gemme IP'en session Session("ip") også bruge den når du sletter.
Prøv at kigge her: http://www.bann.co.uk/asp/global/connections.asp

jeg definerer jo strIP her:

strIP = Request.ServerVariables("REMOTE_ADDR")

jep, jeg har godt læst http://www.bann.co.uk/asp/global/connections.asp , men har prøvet at lave det uden held :(

Ja i en anden function, men når du går ud af Session_OnStart findes strIP ikke mere. Du definere den med :

Dim strIP

uden for function, men da den vil blive ændret for hver gang en ny bruger komme ind på din side er du nød til at gemme IP adressen et unik sted for en bruger og det er i Session objectet....

har nu sat denne sætning ind:

strIP = Request.ServerVariables("REMOTE_ADDR")
sql = "DELETE FROM brugerinfo WHERE ip = '" & strIP & "'"

... men den sletter det stadigvæk ikke

Men der kan også generelt være et problem med Session_OnEnd og access database: http://www.eksperten.dk/spm/226952


Du kan prøve at indsætte og ikke slette:

strIP = Request.ServerVariables("REMOTE_ADDR")
strBROW = "Session_OnEnd"
sql = "INSERT INTO brugerinfo (ip, browser) VALUES('" & strIP & "', '" & strBROW & "')"

Så kan du let se om der kommer noget nyt i databasen ved Session_OnEnd, det er naturligvis bare for test.

ARGH... er det ikke fordi at jeg slutter min connection før session_onEnd?
eller bliver Application.Contents("dbconn") - ikke lukket?

Application.Contents("dbconn")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Web\bjarke\db\dbase.mdb;Mode=Share Deny None;"

Bliver ført slettet når du lukker/stopper/slukker din web-server.

hmm... hvad består "Session_OnEnd" af

Prøv at lave Session_OnEnd sådan her:


Sub Session_OnEnd

set conn = Server.CreateObject("ADODB.connection")
conn.open application("dbconn")

strIP = Request.ServerVariables("REMOTE_ADDR")
strBROW = "Session_OnEnd"
sql = "INSERT INTO brugerinfo (ip, browser) VALUES('" & strIP & "', '" & strBROW & "')"
conn.execute(sql)
Conn.Close
Set Conn = Nothing

End sub


hvis den gemmer ip (xxx.xxx.xxx.xxx) og browser ("Session_OnEnd") i brugerinfo, så ved du at Session_OnEnd bliver kaldt rigtigt.

det virker ikke :( ... tror ikke der sker en skid ved session_OnEnd

//lukker, selv om jeg ikke har fået det til at virke :(