Bonjour est-ce que quelqu'un peut m'aider à comrendre ce qui ne gaze pas dans mon code ?
J'a ecrit une petite DLL en VB6 pour ASP3 qui comporte plusieurs classes. Lorque j'instancie chaque classes individuellement à partir de mes pages ASP ça marche très bien mais je n'arrive à utiliser les objets des classes dont j'ai besoin à partir d'une de ces classes dans mon code vb6. Rermarquez c'est peut-être pas possible pour ce type de composant mais j'aimerais qu'un "expert" puisse me le confirmer (je galère un max et j'ai mal à la tête !!!)
Merci par avance
Jluc
Pour comprendre aisément mon problème "NouvelleInstance de UneClasseDeMaDLL" est à regarder dans le code ci-dessous
Option Explicit
Dim DataConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Session As Session
Dim Application As Application
Dim Request As Request
Dim Response As Response
Dim Server As Server
Dim NouvelleInstance As New UneClasseDeMaDLL
Private Sub OnStartPage(sc As ScriptingContext)
Set Session = sc.Session
Set Application = sc.Application
Set Request = sc.Request
Set Response = sc.Response
Set Server = sc.Server
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open Application("MaBaseDeDonnees")
End Sub
Private Sub OnEndPage()
Set Session = Nothing
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
DataConn.Close
Set DataConn = Nothing
End Sub
Public Sub Execution()
Response.Write "bla bla" & MonCodeVB & "etc. etc."
Set rs = DataConn.Execute("select MonChamp from Matable")
Do While Not rs.EOF
Response.Write rs("MonChamp") & "<br>" & vbCrLf
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
If blablaCode Then
NouvelleInstance.Execution
End If
End Sub