[VB 6/ASP/DLL]Object Required (Database waarschijnlijk)

[Jaspertje]

Navond allemaal,

Volgende is er aan de hand: Ik heb een mooie poll gemaakt in ASP. Alles werkt gaat goed enzo.. niks mis mee. Nu wil ik er graag een DLL van maken zodat ie makkelijk aan te roepen is.. Dus ik denk mooi DLL moet zo gaan.

Ik begin, leuk voorbeeld gevonden van DLL.. mooi aan de slag. Toen moest er ineens een database connectie bij de DLL.. oef.. dat is toch jammer. Ik heb volgende (onder andere) geprobeerd

Visual Basic .NET:

Public Function ShowPoll()
   
    Dim SQL As String
    Dim rs As ADODB.Recordset
    Dim IPCheck As ADODB.Recordset
    Dim conn As ADODB.Connection
    
    Set rs = New ADODB.Recordset
    Set IPCheck = New ADODB.Recordset
    
    Set conn = New ADODB.Connection
    conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\InetPub\Databases\Poll.mdb")
        
    SQL = "Select Actief, ZelfMaken, vraag_id From Vraag where Actief = true"
    Set rs = conn.Execute(SQL)
    If Not rs.EOF Then 'Controleer of er een Poll actief is
        SQL = "SELECT Controle.Ipadres " & _
                "FROM Vraag INNER JOIN Controle ON Vraag.Vraag_id = Controle.Vraag_id " & _
                "WHERE Vraag.Actief =True AND Controle.Ipadres = '" & Request.ServerVariables("REMOTE_ADDR") & "'"
        Set IPCheck = conn.Execute(SQL)
        'Begin de string
        ShowPoll = "<table><tr><td class=Poll colspan=2>Poll</td></tr>" & vbNewLine
        'Vraag erbij
        'ShowPoll = ShowPoll & GetQuestion(rs("vraag_id")) & vbNewLine
        'Einde
        ShowPoll = ShowPoll & "</table>"
        
        Set IPCheck = Nothing
    End If
    
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Function

Toen ik alles uit had staan, en alleen de 'Showpoll = "html zooi" ' aan had staan, liet ie dat mooi zien.. Maar nu gaat het helemaal niet meer. De plek waar de DB staat is goed. dat kan het (denk ik) niet zijn.

De ASP waarmee ik het aanroep:

ASP.NET Visual Basic:

Set Poll = Server.CreateObject("Poll.PollOptions")
Response.Write Poll.ShowPoll
Set Poll = Nothing

En bij de Response.Write Poll.ShowPoll geeft ie de regel fout met Object Required..

-edit: Een vraag is wel makkelijk

Klopt het dat het fout gaat bij het aanroepen van de database op deze manier, of is het iets anders, en wat dan.. En hoe kan ik dit goed oplossen (geen script request modjes?!!!)

-Edit 2: Stom Stom Stom Ik had er nog Request.Server(blabla) instaan... Omg wat dom... Nou ja, het werkt.. toch bedankt

[ Voor 36% gewijzigd door Jaspertje op 03-09-2003 21:57 ]