Function ?!?

Hej - jeg har gjort således:

  Dim objConn
  Dim strConnection

  strConnection = Application("DBConnection")
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open = strConnection

Hvor DBConnection er sat op i Global.asa

kunne du vise mig din global.asa ?

/WebSam

Prøv barre at drop: "As ADODB.Connection" - VBScript er ikke afhængig af datatyper...

Selfølgelig:


<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
  Application("DBConnection") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Website\Prod\SBPortal\Database\SBPortal.mdb; User Id=admin; Password=;" 
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
  Session("lngUserID") = 0
  Session("strUserName") = ""
End Sub

Sub Session_OnEnd
End Sub


</SCRIPT>

iblarsen >> Tak for det jeg vil lure lidt på det

smajli >> Hvis jeg gør kan jeg godt lave dll'en men den melder fejl nårjeg kalder den som følger :

set objConn = Server.CreateObject("Opendb.Openit")
set Conn = objConn.openit()
Conn.open

Så får jeg denne felj :

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'objConn.openit'

Ved du hvad det skyldes ?

/WebSam

For at kunne As ADODB.Connection skal du lave en reference til ADO via Tools - References og så vælge "Microsoft ActiveX data object ..."

1) set objConn = Server.CreateObject("Opendb.Openit")
2) set Conn = objConn.openit()
3) Conn.open

linie 2 fejler hvis openit ikke er declareret Public i dll'en

Og skal jeg vælge alle "Microsoft ActiveX data object" for der jo et par stykker af dem ?

nej, bare en. f.eks den med højest versions nummer (Med mindre det skal køre på en server hvor der kun er en ældre version, f.eks. version 2.5)

ok så fik jeg det på plads men jeg får stadig den fejl med "linie 2" :o( Skal jeg declare den i dll'en ? For hvis jeg laver den på siden er der stadig fejl ?

/Websam

står der public foran "function openit"?

jeps det går der !

ok her kommer lige det kode jeg har til nu :

Public Function OpenIt() As ADODB.Connection
    Dim Conn As New ADODB.Connection
    Conn.ConnectionString = "DSN=Pornsurf"
    Set getConn = Conn
End Function

Og her når jeg forsøger at åbne databasen :

set objConn = Server.CreateObject("Opendb.OpenIt")
set Conn = objConn.OpenIt()
Conn.open

Og nu kom der en ny fejl :

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Conn'

Den anden var mig der havde glemt OpenIt i dll'en

/websam

Er det ikke getConn du skal kalde? (jeg kan se at den returnerer en connection):

1) set objConn = Server.CreateObject("Opendb.Openit")
2) set Conn = objConn.getConn()
3) Conn.open

hvordan ser din asp kode ud?

Jeg har lige skrevet se ovenfor :o)

Det kan ikke være det hele.
Min mistanke er at du bruger Option Explicit, man ikke har nogen Dim for Conn variablen

ok jeg prøver lige at fjerne den dim conn og jeg bruger ikke Option Explicit

Så lyyedes det jeg kan jo ikke lave "Set getConn = Conn" når den heder OpenIt du får mange tak for hjælpen point på vej til dig :o)

Der var lige en anden ting :o) Hvis du har forstand på kryptering ville jeg meget gerne have hvis du ville kigge på denne :
http://www.eksperten.dk/spm/307860

/WebSam