🚀 go-pugleaf

"Passero" <mdsqkf@dsqmkfj.be> schreef in bericht 
news:1124309236.879909@bru-ix-srv240...
> Ik krijg hier af en rare foutmeldingen bij mijn asp pagina's:
>
> Soort fout:
> Runtimefout Microsoft VBScript (0x800A01CA)
> Variabele maakt gebruik van een automatiseringstype dat niet in VBScript 
> wordt ondersteund
>
> De code die ik gebruik die voor deze error zorgt is:
>
> varX = session("varX")
>
> of
>
> function getCount(catID)
>   q = "select count(*) from table where catID = " & catID
> end function
>
> Ik krijg daar mijn error op de q = "select...." lijn.
> Weet iemand raad?

Als je een functie hebt moet je een waarde retourneren dat doe je als volgt:
function getCount(catID)
   getCount = "select count(*) from table where catID = " & catID
end function

In dit geval geef je wel een string terug, en geen resultaat van je sql 
query.

Indien je geen waarde wil retourneren, gebruik dan een sub zoals dit:
sub getCount(catID)
    q = "select count(*) from table where catID = " & catID
end sub

Maar indien uw functie begint met get, zal het waarschijnlijk de bedoeling 
zijn om wel een waarde te retourneren.

On 2005-08-17, Passero <mdsqkf@dsqmkfj.be> wrote:
> function getCount(catID)
>    q = "select count(*) from table where catID = " & catID
> end function

Btw, als je een beetje SQL injection wil voorkomen kan ik je aanraden om
op te zoeken hoe je ADODB (Command en Parameter) kan gebruiken.

-- 
Met vriendelijke groeten,
Tim Van Wassenhove <http://timvw.madoka.be>

RG schreef:
> "Passero" <mdsqkf@dsqmkfj.be> schreef in bericht 
> news:1124309236.879909@bru-ix-srv240...
> 
>>Ik krijg hier af en rare foutmeldingen bij mijn asp pagina's:
>>
>>Soort fout:
>>Runtimefout Microsoft VBScript (0x800A01CA)
>>Variabele maakt gebruik van een automatiseringstype dat niet in VBScript 
>>wordt ondersteund
>>
>>De code die ik gebruik die voor deze error zorgt is:
>>
>>varX = session("varX")
>>
>>of
>>
>>function getCount(catID)
>>  q = "select count(*) from table where catID = " & catID
>>end function
>>
>>Ik krijg daar mijn error op de q = "select...." lijn.
>>Weet iemand raad?
> 
> 
> Als je een functie hebt moet je een waarde retourneren dat doe je als volgt:
> function getCount(catID)
>    getCount = "select count(*) from table where catID = " & catID
> end function
> 
> In dit geval geef je wel een string terug, en geen resultaat van je sql 
> query.
> 
> Indien je geen waarde wil retourneren, gebruik dan een sub zoals dit:
> sub getCount(catID)
>     q = "select count(*) from table where catID = " & catID
> end sub
> 
> Maar indien uw functie begint met get, zal het waarschijnlijk de bedoeling 
> zijn om wel een waarde te retourneren.
> 
> 
> 


Het was als voorbeeld
En er staat wel degelijk een return waarde
Ik weet ook dat ik daar moet oppassen maar het is gewoon dat ik daar die 
error krijg.

Of ik nu schrijf: q = "select * from ... where bla = " & value
of
q = session("id")
of
eenVariabele = "Mijn zin " & session("id")
of
eenVariabele = "Mijn zin " & eenAndereVariabele

Dan krijg ik die fout, daar gaat deze thread ook over

"Passero" <mdsqkf@dsqmkfj.be> schreef in bericht 
news:1124350251.975308@bru-ix-srv240...
> RG schreef:
>> "Passero" <mdsqkf@dsqmkfj.be> schreef in bericht 
>> news:1124309236.879909@bru-ix-srv240...
>>
>>>Ik krijg hier af en rare foutmeldingen bij mijn asp pagina's:
>>>
>>>Soort fout:
>>>Runtimefout Microsoft VBScript (0x800A01CA)
>>>Variabele maakt gebruik van een automatiseringstype dat niet in VBScript 
>>>wordt ondersteund
>>>
>>>De code die ik gebruik die voor deze error zorgt is:
>>>
>>>varX = session("varX")
>>>
>>>of
>>>
>>>function getCount(catID)
>>>  q = "select count(*) from table where catID = " & catID
>>>end function
>>>
>>>Ik krijg daar mijn error op de q = "select...." lijn.
>>>Weet iemand raad?
>>
>>
>> Als je een functie hebt moet je een waarde retourneren dat doe je als 
>> volgt:
>> function getCount(catID)
>>    getCount = "select count(*) from table where catID = " & catID
>> end function
>>
>> In dit geval geef je wel een string terug, en geen resultaat van je sql 
>> query.
>>
>> Indien je geen waarde wil retourneren, gebruik dan een sub zoals dit:
>> sub getCount(catID)
>>     q = "select count(*) from table where catID = " & catID
>> end sub
>>
>> Maar indien uw functie begint met get, zal het waarschijnlijk de 
>> bedoeling zijn om wel een waarde te retourneren.
>>
>>
>>
>
>
> Het was als voorbeeld
> En er staat wel degelijk een return waarde
> Ik weet ook dat ik daar moet oppassen maar het is gewoon dat ik daar die 
> error krijg.
>
> Of ik nu schrijf: q = "select * from ... where bla = " & value
> of
> q = session("id")
> of
> eenVariabele = "Mijn zin " & session("id")
> of
> eenVariabele = "Mijn zin " & eenAndereVariabele
>
> Dan krijg ik die fout, daar gaat deze thread ook over

Ja, maar je moet goed opletten op hoe mijn functie eruitzat:
 function getCount(catID)
    getCount = "select count(*) from table where catID = " & catID
 end function

jij wijst die string toe aan de variabele q, maar om te retourneren moet die 
q veranderd worden in de naam van uw functie 

RG wrote:

> Ja, maar je moet goed opletten op hoe mijn functie eruitzat:
>  function getCount(catID)
>     getCount = "select count(*) from table where catID = " & catID
>  end function
> 
> jij wijst die string toe aan de variabele q, maar om te retourneren moet die 
> q veranderd worden in de naam van uw functie 

Ik neem aan dat dat maar een (te sterk) vereenvoudigd voorbeeld van 
Passero was:
>> Het was als voorbeeld
>> En er staat wel degelijk een return waarde

Het zou interessant zijn te weten wat voor iets die catID is, 
bijvoorbeeld.  VBScript werkt met Variants (of dingen zoals string, 
integer etc. die naar variant gecast kunnen worden), en wordt ongelukkig 
van andere datatypes...

-- 
Raf

miseryman schreef:
> RG wrote:
> 
> 
>>Ja, maar je moet goed opletten op hoe mijn functie eruitzat:
>> function getCount(catID)
>>    getCount = "select count(*) from table where catID = " & catID
>> end function
>>
>>jij wijst die string toe aan de variabele q, maar om te retourneren moet die 
>>q veranderd worden in de naam van uw functie 
> 
> 
> Ik neem aan dat dat maar een (te sterk) vereenvoudigd voorbeeld van 
> Passero was:
> 
>>>Het was als voorbeeld
>>>En er staat wel degelijk een return waarde
> 
> 
> Het zou interessant zijn te weten wat voor iets die catID is, 
> bijvoorbeeld.  VBScript werkt met Variants (of dingen zoals string, 
> integer etc. die naar variant gecast kunnen worden), en wordt ongelukkig 
> van andere datatypes...
> 

Het is een doodgewone int

"Passero" <mdsqkf@dsqmkfj.be> schreef in bericht 
news:1124442217.639847@bru-ix-srv240...
> miseryman schreef:
>> RG wrote:
>>
>>
>>>Ja, maar je moet goed opletten op hoe mijn functie eruitzat:
>>> function getCount(catID)
>>>    getCount = "select count(*) from table where catID = " & catID
>>> end function
>>>
>>>jij wijst die string toe aan de variabele q, maar om te retourneren moet 
>>>die q veranderd worden in de naam van uw functie
>>
>>
>> Ik neem aan dat dat maar een (te sterk) vereenvoudigd voorbeeld van 
>> Passero was:
>>
>>>>Het was als voorbeeld
>>>>En er staat wel degelijk een return waarde
>>
>>
>> Het zou interessant zijn te weten wat voor iets die catID is, 
>> bijvoorbeeld.  VBScript werkt met Variants (of dingen zoals string, 
>> integer etc. die naar variant gecast kunnen worden), en wordt ongelukkig 
>> van andere datatypes...
>>
>
> Het is een doodgewone int

Voor de laatste keer:
De variabele waarin je de waarde geeft, heet q, die 'variabele' moet de naam 
van uw functie zijn, dan is het in orde 

Ik zou eens zien welke waarde catID heeft wanneer het die error genereerd.

function getCount(catID)
    on error resume next
    if not isnull(catID) and catID<>"" then
        getCount = "select count(*) as counter from table where catID = " &
catID
    else
        getCount = ""
    end if
    if err<>0 then
        response.write catID & " - " & getCount
        response.end
    end if
end function


> varX = session("varX")
>
> of
>
> function getCount(catID)
>    q = "select count(*) from table where catID = " & catID
> end function
>
> Ik krijg daar mijn error op de q = "select...." lijn.
> Weet iemand raad?

> Soort fout:
> Runtimefout Microsoft VBScript (0x800A01CA)
> Variabele maakt gebruik van een automatiseringstype dat niet in VBScript 
> wordt ondersteund

Heb eens dezelfde fout gehad.
Heb toen de dll's van vbscript terug geregistreerd met regsvr32 en toen 
werkte alles terug.