problem; jag vill att en databas skall öppnas, ligga öppen till applikationen avslutas. Men det fungerar inte, inte heller att via en session on_start initiera en session var. Se nedan. Vad är fel. Ursäkta om det är något skräpfel men jag är total rookie.

global .asa;


Sub Application_OnStart
Application("objCon")= Server.CreateObject "ADODB.Connection")
tmp=Application("objCon")
tmp.Open "DRIVER={MySQL};DATABASE=motljus45;UID=XXXX;PWD=XXX;SERVER=999.99.99.999"
End Sub

Sub Application_OnEnd
objGetData.Close
Set objGetData = Nothing
Set objCon = Nothing
End Sub

Sub Session_OnStart
Session.("LocGIdnr")=0
Session("LocAction")="TYKO"
End Sub

Sub Session_OnEnd
Session.Contents.RemoveAll()
End Sub

----------kallar på databasen från följande kod;

tmp=Application("objCon")
Set objGetData=tmp.Execute("SELECT * FROM xxxx")

aTmp=session("LocAction")
response.write "------" & aTmp & "------------"

--------- ger bara ett streck.

Mvh
Johan

Vet inte om det ska fungera, men testa med...

<code>
Sub Application_OnStart
Set tmp = Server.CreateObject ("ADODB.Connection")
Application("objCon") = tmp.Open "DRIVER={MySQL};DATABASE=motljus45;UID=XXXX;PWD=XXX;SERVER=999.99.99.999"
End Sub
</code>

Mvh Thomas

HJÄLP!!!!

Absolut inte göra så. Komer ställa till problem. KAn verka vara en smart idé. Men påverkar prestandan mycket negativt.
Öppna och stäng din anslutning bara när du behöver den. Så kommer du göra en mycket mer resurshälsosammare applikation.

<code>
Sub Application_OnStart
Application("ConnectionString") = "DRIVER={MySQL};DATABASE=motljus45;UID=XXXX;PWD=XXX;SERVER=999.99.99.999"
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
Session("LocGIdnr") = 0
Session("LocAction") = "TYKO"
End Sub

Sub Session_OnEnd
'Behövs ej
'Session.Contents.RemoveAll()
End Sub

'----------kallar på databasen från följande kod;
<%
Dim tmp
Dim objGetData
Set tmp = Server.CreateObject("ADODB.Connection")
tmp.Open Application("ConnectionString")

Set objGetData = tmp.Execute("SELECT * FROM xxxx")

aTmp = session("LocAction")
response.write "------" & aTmp & "------------"

objGetData.Close
Set objGetData = Nothing

tmp.Close
Set tmp = Nothing
%>
</code>

Om du är nyfiken på vad du har gjort fel på koden så är det att du inte skrivit Set framför rader som tilldelar objekt till variabler.


OBS ANVÄND EJ FÖLJANDE KOD!!!
<code>
Sub Application_OnStart
Set tmp = Server.CreateObject("ADODB.Connection")
tmp.Open "DRIVER={MySQL};DATABASE=motljus45;UID=XXXX;PWD=XXX;SERVER=999.99.99.999"
Set Application("objCon") = tmp
End Sub

Sub Application_OnEnd
Set Application("objCon") = Nothing
End Sub

Sub Session_OnStart
Session("LocGIdnr")=0
Session("LocAction")="TYKO"
End Sub

Sub Session_OnEnd

End Sub

'---------------------------------------
Dim tmp
Dim objGetData
Set tmp = Application("objCon")
Set objGetData = tmp.Execute("SELECT * FROM xxxx")

aTmp = session("LocAction")
response.write "------" & aTmp & "------------"

objGetData.Close
Set objGetData = Nothing

Set tmp = Nothing
</code>
OBS ANVÄND EJ FÖLJANDE KOD!!!

Vet inte om jag håller med att prestandan påverkas, men däremot skjuter du all Skalbarhet i sank..