Notifikationer

Markér alle som læst Log ud

jan2001 Nybegynder

18. oktober 2003 - 14:52 Der er 3 kommentarer og
1 løsning

gennemløb af kode

Hej

Jeg har følgende lille stump kode, som skal gennemløbes 20 gange. i skal øges med 1 hvergang og der skal defineres en ny var-variabel hvergang. Altså var1, var2 osv så der er lavet 20 forskellige variabler, når gennemløbet er slut.

i = "1"
x = "th" + i + "alt"
if not thumbrec("th" & i) = "" then
var = "<a href='show.asp?id=" & ID & "&img=10'><img src='../thumbs/" & thumbrec("th" & i) & "' alt='" & thumbrec(x) & "' width='80' height='80' border='0' /></a>"
else
var = "<img src='../thumbs/tomt.gif' width='80' height='80' border='0' />"
end if

Synes godt om

ellebaek Nybegynder

18. oktober 2003 - 14:54 #1

for i = 1 to 20
x = "th" + i + "alt"
if not thumbrec("th" & i) = "" then
var & i = "<a href='show.asp?id=" & ID & "&img=10'><img src='../thumbs/" & thumbrec("th" & i) & "' alt='" & thumbrec(x) & "' width='80' height='80' border='0' /></a>"
else
var & i = "<img src='../thumbs/tomt.gif' width='80' height='80' border='0' />"
end if

Sådan her måske...

Synes godt om

ellebaek Nybegynder

18. oktober 2003 - 14:54 #2

wups...

Mangler et next efter end if

Synes godt om

soes Nybegynder

19. oktober 2003 - 19:34 #3

en anden måde at løse det på ville være at bruge et array.

Dim arr(19) ' Opretter et array med 20 poster. Et array starter ved 0

for j = 0 to 19
i = j +1
x = "th" + i + "alt"
if not thumbrec("th" & i) = "" then
arr(j) = "<a href='show.asp?id=" & ID & "&img=10'><img src='../thumbs/" & thumbrec("th" & i) & "' alt='" & thumbrec(x) & "' width='80' height='80' border='0' /></a>"
else
arr(j) = "<img src='../thumbs/tomt.gif' width='80' height='80' border='0' />"
end if
next

Synes godt om

soes Nybegynder

19. oktober 2003 - 19:36 #4

når du skal hente noget ud fra et array skriver du blot arr([værdi]) hvis du ønsker at få den 5. post ud vil det blive
Response.Write(arr(4))

Hvis du ønsker at løbe alle dine poster igennem kan det gøres med en forløkke.
For i = LBound(Arr) TO UBound(Arr)
Response.write(Arr(i))
Next

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS