Hi,
ich habe vergessen ein paar Komentare zu l�schen.
Das ist nur im Beitrag so, nicht im eigentlichen Code !!!
Richtig lautet:
# --- clszvfunctions.asp
<%
Class ZVFunctions
' ******************************************************************************
' Routine: ZVFunctions
' Description: ZVFunctions Klasse
'
' Created by: Christoph Eigenseder
' Date-Time: 19.08.2002 13:23:47
' Last modification:
' ******************************************************************************
'Membervariablen
Private mobjConnZV
Private mstrDatabaseLocation
Private Sub Class_Initialize()
' ******************************************************************************
' Routine: Class_Initialize
' Description: Implizit vom IIS aufgerufene Prozedur bei Initialisierung der
Klasse
' ******************************************************************************
Dim strConnection
mstrDatabaseLocation = Server.MapPath("\") & "\db\zv.mdb"
strConnection = "data provider=Microsoft.Jet.OLEDB.4.0;data source=" &
mstrDatabaseLocation
Set mobjConnZV = Server.CreateObject("ADODB.Connection")
mobjConnZV.Provider = "MSDataShape"
'Open Database
mobjConnZV.Open(strConnection)
End Sub
Private Sub Class_Terminate()
' ******************************************************************************
' Routine: Class_Terminate
' Description: Implizit vom IIS aufgerufene Prozedur bei Terminierung der Klasse
' ******************************************************************************
'Schlie�t Database Connection
mobjConnZV.Close
Set mobjConnZV = Nothing
End Sub
End Class
%>
# --- End clszvfunctions.asp
Sorry!
mfg
Christoph Eigenseder
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
