ASP Komponent for begyndere.

http://www.asp.dk/articles.asp?mode=show_article&article_id=38&tech_id=11

//>Rune

Hej Rune

Jeg har kigget på den artikel..

Men han requester ikke noget fra ASP siden, men fra DLL filen, det er modsat vej jeg gerne vil.

Jens K

Jeg har så fået det til at  virke med følgende kode:

----VB----
Option Explicit

Private strNavn As String
Private strAlder As String
Dim Fornavn As String

Public Function Navn(ByVal strData As String)
  strNavn = strData
End Function
Public Function Alder(ByVal strData As String)
  strAlder = strData
End Function



Public Function Info() As String

    Info = "" & strNavn & " er " & strAlder & " år "

End Function

----VB SLUT---


----ASP----

<%
' lav en instans af komponent klassen
Set OCS = server.createobject("OCS.JK")

ocs.Navn "JK"
ocs.Alder 17

Response.Write ocs.Info

%>
----ASP SLUT----

Var det noget i den stil du var ude efter.


'----VB OCS.JK----
Option Explicit

Private m_Navn As String
Private m_Alder As String

Public Property Get Navn() As String
  Navn = m_Navn
End Property

Public Property Let Navn(ByVal vNewValue As String)
  m_Navn = vNewValue
End Property


Public Property Get Alder() As String
  Alder = m_Alder
End Property

Public Property Let Alder(ByVal vNewValue As String)
  m_Alder = vNewValue
End Property

Public Function Info() As String
  Info = m_Navn & " er " & m_Alder & " år "
End Function
'----VB OCS.JK----



'----ASP----
<%
  Set OCS = server.CreateObject("OCS.JK")

    OCS.Navn = "JK" 'Ind
    OCS.Alder = 17  'Ind

    strNavn = OCS.Navn  'Ud
    strAlder = OCS.Alder 'Ud

    Response.Write strNavn & " er " & strAlder & " år"

    Response.Write OCS.Navn & " er " & OCS.Alder & " år"

    Response.Write OCS.Info

  Set OCS = Nothing
%>
'----ASP----