dll til asp (returner db-connection)

'---------------- Class1 DLL ----------------
' Visual Basic

Public Property Get Code() As String
  Code = Chr(65) & Chr(115) & Chr(112) 'Code = Asp
End Property
'---------------- Class1 DLL ----------------


<!-- ASP -->
<%
  Dim objProject
  Set objProject = CreateObject("Project1.Class1")
  strCode = objProject.Code
  Set objProject = Nothing
%>

<%=strCode%>
<!-- ASP -->

Det jeg gerne vil undgå er, at brugeren kan skrive:

response.write strCode

og derved få vist koden (brugeren har adgang til al asp-kode)
Derfor vil jeg gerne oprette min connection inde i dll'en, og returnere connection til asp-siden.

ved ikke om det virker men prøv:



'---------------- Class1 DLL ----------------
' Visual Basic
Private m_dbPath As String
Private Conn As Object

Public Sub Connect()
  Set Conn = CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & m_dbPath & "; PWD=" & "dit password"
End Sub

Public Property Get GetConn() As Object
  Set GetConn = Conn
End Property

Public Property Get dbPath() As String
  dbPath = m_dbPath
End Property

Public Property Let dbPath(ByVal sNewPath As String)
  m_dbPath = sNewPath
End Property

Private Sub Class_Terminate()
  Conn.Close
  Set Conn = Nothing
End Sub
'---------------- Class1 DLL ----------------


<!-- ASP -->
<%
  Dim Conn
  Dim objProject
  Set objProject = CreateObject("Project1.Class1")

  objProject.dbPath = "C:\mappe\database.mdb"
  objProject.Connect

  strSQL = "Select Top 10 * from Nyheder Where Dato Order By Dato Desc"

  Set Conn = objProject.GetConn
  Set rs = Conn.Execute(strSQL)

  If rs.EOF = False Then
    Do
      Response.Write rs("Dato")
      rs.MoveNext
    Loop While Not rs.EOF
  End If

  Set objProject = Nothing
%>
<!-- ASP -->

Perfect, tak for hjælpen

virkede det som det skulle, eller har du lavet om på noget??

tak for point :-)

Jeg har rettet det til en anden connection-string, så jeg bruger OLE driver