Flytte kode fra ASP til COM:

Åpne opp Visual Basic, lag en ny ActiveX dll, lagre prosjektet som parameter og døp klassen til funksjon.
Denne koden tar altså inn sql-spørringa som innparameter. Det vil også være enkelt å lage connection-strengen som innparameter. Det må understrekes at dette er et MEGET enkelt eksempel uten noen som helst form for feilsjekking.

Koden i "funksjon" ser slik ut:

Function getlist(sql As String) As Variant
'sender inn sql-spørringen'
Dim rs As New ADODB.Recordset
'lager et nytt recordset'
rs.CursorType = adOpenStatic
'setter cursortypen'
Const Connect = "DSN=sindre; UID=alle; pwd=alle;"
'lager connectionstringen'
rs.Open sql, Connect
'åpner strenger'
getlist = rs.GetRows()
rs.Close
'lukker rs'
End Function

Du må også huske å kompilere den til en dll-fil som du døper til parameter. Deretter åpner du DOS å skriver "regsvr32.exe parameter.dll". Gjorde du noe feil?? Isåfall du du skrive "regsvr32.exe parameter.dll  /u" og registrere den på nytt...

Som kalles opp slik på en ASP-side:

<%
Dim Products,Productlist,Product
Set Products = Server.CreateObject("parameter.funksjon")
Productlist = Products.getlist("select * from kunder")
For each Product in Productlist
Display=display&Product&"<br>"
Next
Response.write Display
%>

Håper dere får det til, og hvis det er noen spørsmål er det bare å maile!

Skrevet av Sindre Mathisen 2001