komponent i vb!

Split spørgsmålet er nemt at svare på!

Det kom først i 6.0 :)

Men du kan selv lave en function magen til....

Hvis du mener sessions i asp så er det ret simpelt!

Session(\"Brugernavn\")=\"Jonas\"

Kan hentes igen med

Response.write Session(\"Brugernavn\")

Erhm..det ved jeg..men den gider ikke compile scripts med ordet \"session\" i ?..det samme problem som jeg havde med \"application\" og med \"Split\"

Er jeg helt galt ude eller prøver du at bruge session, application osv i vb5 ????, det er VBA komponenter som du bruger på en asp side.

fra i går... her svarede jeg på det samme..


http://www.eksperten.dk/spm/31341

Der skulle iøvrigt slet ikke være noget forskel i koden...

Jeg skriver det bare i vb og gemmer som dll filer...registerer dem på serveren og kalder dem med en asp fil?

Jeg har som sagt fået applications til at virke, nu mangler jeg bare split og session :)

<lbs> Jeg kan ikke bruge det til sessions :)

Set Session = objContext(\"Session\")
har du så ikke adgang til den?

Jeg prøvede at lave den på samme måde som application

Public Sub test()
Dim session
Dim Context
    Set Context = GetObjectContext()
    Set session = Context(\"session\")
session(\"heju\") = \"Hej\"
End Sub

funker ikke!

hmm koden er helt korrekt

hvad med Response og Request? har du testet dem?

jeg fristes til at tro at der er en lille fejl et eller andet sted, er ca 100% sikker på at det der virker...

hmm har du prøvet at skrive Context(\"Session\") i stedet for Context(\"session\")
?
det ville være suspekt, men man kan aldrig vide..

Du er min skat...det funkede :)))

Så mangler jeg vist kun split, medmindre der er andre ASP objekter/ord/functioner man ikke kan bruge ?

split er en del af asp, den skal virke af sig selv.. uden du gør noget

kan du vise det kode hvor du kalder den?

Public Sub test(ord)
Count = 0
count2 = 0
Do While Count < 100
param = split(ord, Chr(13))
If count2 < 25 Then
param2 = split(param(Count), \"|\")
test = test & test
count2 = count2 + 1
End If
Loop
End Sub

Det var sårn lige hurtigt :)

Måske skal jeg bytte split ud med Split? ..hehehe..

mmm det ser ikke ud som at du gør noget forkert, hvad er fejlbeskeden?

hehe nej, det er helt sikkert ikke case-sensitivt

Samme som i går \"Sub or function not defined\" også markerer den split!

hmm jeg har lige prøvet at teste det, det virker fint her, min vb erstatter dog split med Split prøv det lige

Funker ikke :(
Men du har osse VB 6.0 eller ?
Jeg bruger 5.0!

yep, jeg bruger 6.0.

sorry, jeg må smutte, held og lykke :)

Damn.......takker :)

du må have erklæret en variabel et eller andet sted som hedder split..
det er den eneste mulighed jeg ser...

Som blazer skriver tidligere er Split (og andre) strengfunktioner ikke med i VB5.

Prøv derfor følgende som udgangspunkt i VBScript (ASP). Du kan med fordel typeerklære sString, sDelimitor og sTmp som String i VB, mens lPos og lCurrentRow burde være long\'s

Function Split(ByVal sString, byval sDelimitor)
    If InStr(sString, sDelimitor) = 0 Then
        Split = sString
        Exit Function
    End If
   
    Dim aResult(): ReDim aResult(10)
    Dim lCurrentRow: lCurrentRow = -1
   
    Dim sTmp
    sTmp = sString
   
    Dim lPos
    lPos = InStr(sString, sDelimitor)
   
    Do While lPos <> 0
        lCurrentRow = lCurrentRow + 1
        If lCurrentRow > UBound(aResult) Then
            ReDim Preserve aResult(lCurrentRow + 10)
        End If
       
        aResult(lCurrentRow) = Left(sString, lPos - 1)
       
        sString = Mid(sString, lPos + Len(sDelimitor))
       
        lPos = InStr(sString, sDelimitor)
    Loop
   
    lCurrentRow = lCurrentRow + 1
    If lCurrentRow > UBound(aResult) Then
        ReDim Preserve aResult(lCurrentRow + 10)
    End If
   
    aResult(lCurrentRow) = sString
   
    ReDim Preserve aResult(lCurrentRow)
   
    Split = aResult
End Function

\' Test the Split function
Sub test()
    Dim aSet \'
    aSet = Split(\"This was a test\", \" \")
End Sub

:) Buhl

Fandt selv ud af det, men IBS fortjener nogen point iallefald ;)

Syntes du er lidt nærig..
jeg fortjener da halvdelen
specielt fordi jeg snakkede så længe med dig om det..