Fejl ved brug af AxtiveX ?

If Session("Mode") = "addNews" Then
    Dim objNews
    T1 = Request.Form("T1")
    T2 = Request.Form("T2")
    Conn = Application("ConnectionString")
    Set objNews = Server.CreateObject("News.strNews")
    objNews.AddNewsToDb T1, T2, Conn
End If


Ved ikke om det virker, men det var da et forsøg værd...

Det hvilke typer forventer du at få ind i AddNewsToDb ?
Du sender pt 3 strenge med ind Det kan være du skal have noget CInt() rundt om de 2 første ?

Jeg kalder en homemade dll fra ASP på følgende vis:
   
bestyrFlet.UdskrivBrev Response, cstr(dok), cstr(scri),
cstr(session"egbolig_db")), cstr(session("egbolig_init"))

- og det fungerer godt nok på den måde...

Spotgun >> Så får jeg følgende fejl "Type mismatch: 'AddNewsToDb' "

chriscross >> Jeg forventer at få af typen string

OK, er du sikker på at du har hentet de tre variable rigtigt ud - prøv lige at gøre som spotgun har foreslået og se om fejlen rykker med op...

chriscross >> Og med cstr om får jeg samme fejl "Type mismatch"

Altså med dette :

If Session("Mode") = "addNews" Then
    Dim objNews
    T1 = Request.Form("T1")
    T2 = Request.Form("T2")
    Conn = Application("ConnectionString")
    Set objNews = Server.CreateObject("News.strNews")
    objNews.AddNewsToDb cstr(T1), cstr(T2), cstr(Conn)
End If

Ja - så kan vi se hvilken linie fejlen kommer i...

Og her en del af mit vbscript :

Option Explicit

Public Function AddNewsToDb(Headline As String, News As String, strConn As String) As Boolean
    On Error GoTo ErrorHandle
   
    Dim objConn As ADODB.Connection
    Dim Sql As String
   
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open strConn
   
    Sql = "Insert Into tblNews (Headline, News) Values ("
    Sql = Sql + "'" + Headline + "',"
    Sql = Sql + "'" + News + "')"
    objConn.Execute Sql
    objConn.Close
    Set objConn = Nothing
   
    AddNewsToDb = True
    'GetObjectContext.SetComplete
    Exit Function
   
ErrorHandle:

    'GetObjectContext.SetAbort
    AddNewsToDb = Err.Description
   
End Function

Men fejlen kommer jo inden den sender variabler til dll ikke sandt ?!?

Øh VBScript ?
- ikke VisualBasic ?

Er du sikker på at du kan få din funktion til at retunere en boolean ?
En god måde at debugge på er at sende Response med ind ind i funktionen, du modtager den: Response As Object
- så kan du skrive tilbage til din ASPside ,-)

Måske - hvad sagde den da du forsøgte at dele det op ?

Prøv lige at fjerne den der boolean fra funktionen, kommenter den ud inde i funktionen, kompiler (og alt det der besværlige ) og se om det kan være den den ikke kan lide - har du testet udenom asp at den fungerer ?
Jeg tror kun du kan skrive tilbage til asp via response....men er ikke sikker

Hov Hov
Hvis funktionen fejler vil den udføre: AddNewsToDb = Err.Description

- og error description er ikke en boolean - det er en string

Ok jeg prøver lige hæng på :o)

Øh jo - jeg smutter klokken fire - men er tilbage imorgen tidlig, så kan du også nå at undersøge hvad jeg ellers har skrevet ;-)

Ja og det er ikke fra komponenten jeg får fejlen men jeg prøver alligevel og ved spotguns eksempel fik jeg denne fejl "Type mismatch: 'AddNewsToDb' "

Hvis du får den der ved spotguns eks. er vi ( tror jeg ) tilbage ved den boolean du forsøger at få funktionen til at returnere. Du skal da så også sige:

Dim res

res = objNews.AddNewsToDb Request.Form("T1"), Request.Form("T2"), Application("ConnectionString")

hvis du vil have fat i det returnerede....muligvis dit problem ?

Med res =..... inde i koden får jeg denne :

Expected end of statement

Fjerner jeg derimod res i koden og plinger boolean ud vil componenten køre men ikke lagre noget i databasen

Første lyder lidt underligt

Prøv at sende Response med derind som jeg skrev ovenfor og så udskrive hvor langt du er nået ect for, ja nærmest hver linie...jeg var aldrig kommet igennen uden den mulighed for debugging ;-)
- du skriver bare Response.Write "<br> db open" og
Response.Write "sql: " & sql
osv

Er tilbage i morgen :o)

ok jeg kigger på det

Nu fik jeg det til at virke i asp ved at lave min db forbindelse om, men stadig kan jeg ikke få det til at virke i componenten :o(

Hvordan der koden ud i den lige nu ?

Option Explicit

Public Function AddNewsToDb(Headline As String, News As String, strConn As String) ' As Boolean
    On Error GoTo ErrorHandle
   
    Dim objConn As ADODB.Connection
    Dim Sql As String
   
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open strConn
   
    Sql = "Insert Into tblNews (Headline, News) Values ("
    Sql = Sql + "'" + Headline + "',"
    Sql = Sql + "'" + News + "')"
    objConn.Execute Sql
    objConn.Close
    Set objConn = Nothing
   
    AddNewsToDb = True
    'GetObjectContext.SetComplete
    Exit Function
   
ErrorHandle:

    'GetObjectContext.SetAbort
    AddNewsToDb = Err.Description
   
End Function

Men jeg får stadig denne fejl på asp siden :

Type mismatch: 'AddNewsToDb'

Hvis det er VB(script) skal du bruge "&" i stedet for "+" når du sammensætter strings

Og koden på asp siden er som følger :

If request.querystring("Mode") = "addNews" Then
    Dim objNews
    T1 = Request.Form("T1")
    T2 = Request.Form("T2")
    Set objNews = Server.CreateObject("News.strNews")
    objNews.AddNewsToDb T1, T2, Conn
    End If

Det skulle jo ikke betyde noget når den ikke kommer ind i komponenten men jeg ændre det alligevel

Hvorfor ikke - det kommer da an på hvilker sprog du benytter i komponenten...

Og fejlen kommer stadig i den linie hvor du kalder dll'en ?
Fordi så *er* det i den du har problemer.

Har du prøvet at sende response med ind, og så udskrive derindefra  ?

Nej og jeg kiggede på det igår men jeg er ikke helt sikekr på hvordan jeg skal gøre det :o)

Og ja det er i den linie hvor jeg kalder komponenten

OK:
objNews.AddNewsToDb T1, T2, Conn, Response

Og i din funktion:
Public Function AddNewsToDb(Headline As String, News As String, strConn As String, Response As Object) ' As Boolean
    On Error GoTo ErrorHandle
   
    Dim objConn As ADODB.Connection
    Dim Sql As String
   
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open strConn
    Response.write "<br> database åbnet"
   
    Sql = "Insert Into tblNews (Headline, News) Values ("
    Sql = Sql + "'" + Headline + "',"
    Sql = Sql + "'" + News + "')"
    Response.write "<br> sql: " & sql
    objConn.Execute Sql
    Response.write "<br>sql udført"

    objConn.Close
    Set objConn = Nothing
    Response.write "<br> databaselukket"

    AddNewsToDb = True
    'GetObjectContext.SetComplete
    Exit Function
   
ErrorHandle:
    Response.write "<br>Fejl: " & Err.Description

    'GetObjectContext.SetAbort
    AddNewsToDb = Err.Description
   
End Function

Ok det prøver jeg lige

Ok den kommer stadig med den samme fejl :

Type mismatch: 'AddNewsToDb'

I den linie hvor jeg kalder funktionen i komponenten :o(

Lad der blive lys hvis jeg så sætter CStr omkring mine variabler ser det ud til at virke

Og du får intet skrevet ud ?

Aha - det er svært at debugge hvis man slet ikke kan kommer derind :-)

Jeps men den gemmer i databasen nu og udskriver de ting jeg lige tilføjede med response så alt er som det skal være, kanon :o) Dette giver en masse fede muligheder når man udvikler software der ikke skal ligge på ens egen server :o)

Mange tak for hjælpen, der er point på vej til dig :o)

Det er nemlig lige det det gør, og jeg synes at det er specielt smart at man kan sende response med ind da man så har rigtig gode muligheder for at skrive tilbage til brugeren - resultat af funktionen, udvidede fejlmeddelelser og den slags :o)

Og selv tak