'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
1
2
3
4
5
6
| dim tempvar
tempvar = Left(opbouwquery, Len(opbouwquery) - 2)
query = "DELETE * " &_
"FROM artikel " &_
"WHERE [artikel].[artikel] NOT IN (" & tempvar & ")"
rs.Open query, conObj |
[ Voor 17% gewijzigd door party42 op 26-03-2004 13:05 ]
Everyday's an endless stream, of cigarettes and magazines...
Het is een vbscript functie, geen ASP functieNMe84 schreef op 26 maart 2004 @ 12:46:
Maar ASP kent ineens haar eigen functies niet meer...:
maar volgens mij doe je niks fout. Ik vermoed dan ook dat "opbouwquery" leeg is, door een typfout oid
doe eens response.write(opbouwquery) en response.write(len(opbouwquery))
kaart != map && bottel != fles
Wacht op antwoord
En opbouwquery is gewoon gevuld zoals ie gevuld moet zijn...
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
en daarna ook nog ffj_du_pee schreef op 26 maart 2004 @ 13:08:
[...]
Het is een vbscript functie, geen ASP functie
maar volgens mij doe je niks fout. Ik vermoed dan ook dat "opbouwquery" leeg is, door een typfout oid
doe eens response.write(opbouwquery) en response.write(len(opbouwquery))
response.write(len(opbouwquery)-2)
evt:Left(opbouwquery, Len((opbouwquery)-2)) (extra haakjes)
ik durf toch echt te beweren dat of de string leeg is, of hij is korter dan 2 characters waardoor -2 niet wil lukken.NMe84 schreef op 26 maart 2004 @ 15:49:
En opbouwquery is gewoon gevuld zoals ie gevuld moet zijn...
Staat option explicit aan
kaart != map && bottel != fles
Wacht op antwoord
Voor hints over debuggen: P&W FAQ - ASP
Everyday's an endless stream, of cigarettes and magazines...
Ik heb de variabele bovenaan, buiten een functie of sub, dus de globale scope, gedefinieerd. Daar stel ik hem ook in op een lege string met opbouwquery = "". Vervolgens vul ik hem als volgt in een sub:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Private Sub GetFiles(mapNaam) Dim map, bestand, submap Set map = fs.GetFolder(mapNaam) For Each bestand in map.Files 'Elk bestand afgaan opbouwquery = opbouwquery & Right(bestand, Len(bestand) - Len(hoofdmap) - 1) & ", " Next For Each submap in map.SubFolders Call GetFiles(submap) Next Set map = nothing End Sub |
Vervolgens probeer ik opbouwquery na aanroep van die recursieve functie weer op te vragen in het hoofdprogramma. Dan zou ie toch gevuld moeten zijn?
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
edit:
Hier werkt het gewoon. Druk eens de naam van het bestand af in de foreach, misschien wordt door een rechtenkwestie niet goed geitereerd.
[ Voor 79% gewijzigd door Yucon op 28-03-2004 15:19 ]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub GetFiles(mapNaam) Dim map, bestand, submap Set map = fs.GetFolder(mapNaam) For Each bestand in map.Files 'Elk bestand afgaan Response.write "bestand=" & bestand & "<BR>" Response.write "Len(bestand)=" & Len(bestand) & "<BR>" Response.write "Len(hoofdmap)=" & Len(hoofdmap) & "<BR>" Response.write "Totaal=" & Right(bestand, Len(bestand) - Len(hoofdmap) - 1) & "<BR>" 'opbouwquery = opbouwquery & Right(bestand, Len(bestand) - Len(hoofdmap) - 1) & ", " Next For Each submap in map.SubFolders Call GetFiles(submap) Next Set map = nothing End Sub |
Wat is de output?
Everyday's an endless stream, of cigarettes and magazines...
Als ik zeg wat eraan schortte dan krijg ik waarschijnlijk zo'n harde trap dat ik naar de maan en terug vlieg... Ik vergat die sub aan te roepen....Yucon schreef op 28 maart 2004 @ 15:15:
Zou goed moeten zijn.
edit:
Hier werkt het gewoon. Druk eens de naam van het bestand af in de foreach, misschien wordt door een rechtenkwestie niet goed geitereerd.
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
np, zulke problemen hebben we allemaal weleens gehadNMe84 schreef op 29 maart 2004 @ 10:25:
[...]
Als ik zeg wat eraan schortte dan krijg ik waarschijnlijk zo'n harde trap dat ik naar de maan en terug vlieg... Ik vergat die sub aan te roepen....![]()
kaart != map && bottel != fles
Wacht op antwoord
Nou, en uiteindelijk ben je daar dan toch zelf achtergekomenNMe84 schreef op 29 maart 2004 @ 10:25:
[...]
Als ik zeg wat eraan schortte dan krijg ik waarschijnlijk zo'n harde trap dat ik naar de maan en terug vlieg... Ik vergat die sub aan te roepen....![]()
heb eens 5 uur op een asp pagina gezeten.. 3 plaatjes naast elkaar, 2 werkten, 1 gaf een kruisje.. en de code was echt identiek... dacht ik dan. Tot ik zag dat ik <img scr="plaatje.gif"> gebruikt had. Wie het ziet mag het zeggen
[ Voor 3% gewijzigd door Yucon op 29-03-2004 14:05 ]
Ik ze het direct omdat ik ook eens tegen deze fout ben aangelopen. Je zoekt je rot.Yucon schreef op 29 maart 2004 @ 14:05:
[...]
Nou, en uiteindelijk ben je daar dan toch zelf achtergekomen
heb eens 5 uur op een asp pagina gezeten.. 3 plaatjes naast elkaar, 2 werkten, 1 gaf een kruisje.. en de code was echt identiek... dacht ik dan. Tot ik zag dat ik <img scr="plaatje.gif"> gebruikt had. Wie het ziet mag het zeggen
I'm not a complete idiot - several parts are missing.
Yucon schreef op 29 maart 2004 @ 14:05:
[...]
Nou, en uiteindelijk ben je daar dan toch zelf achtergekomen
heb eens 5 uur op een asp pagina gezeten.. 3 plaatjes naast elkaar, 2 werkten, 1 gaf een kruisje.. en de code was echt identiek... dacht ik dan. Tot ik zag dat ik <img scr="plaatje.gif"> gebruikt had. Wie het ziet mag het zeggen
scr moet zijn src
Everyday's an endless stream, of cigarettes and magazines...