JeppewebMedlem sedan sep. 2006462 inlägg Slutade att fungera efter att jag lade till den här raden, varför?
if arrArticlesData(9, intArticlesLoop) = Filmer then
if arrArticlesData(9, intArticlesLoop) = Filmer then
'display article details
response.write("<p>"& ids("Kategori") &": <a href='"& strBlogLocation &"games.asp?Category="& arrArticlesData(8, intArticlesLoop) &"' title='Kategori: "& safe_text(SQL_decode(arrArticlesData(9, intArticlesLoop))) &"'>"& SQL_decode(arrArticlesData(9, intArticlesLoop)) &"</a>")
response.write(" - "& ids("") &" "& web_time(arrArticlesData(4, intArticlesLoop), strBlogTimeFormat, "Full") &" - ")
'check comments are enabled
if arrArticlesData(5, intArticlesLoop) = 1 and intBlogCommentEnabled = 1 then
response.write(" <a href='"& strBlogLocation &"games.asp?Display="& arrArticlesData(0, intArticlesLoop) &"#Comments' title='"& ids("Antal kommentarer") &": "& safe_text(arrArticlesData(6, intArticlesLoop)) &"'>"& arrArticlesData(6, intArticlesLoop) &" "& ids("kommentarer") &"</a> - <a href='#' title='Lägg till det här spelet i dina favoriter.'>Favorit</a> - <a href='#' title='Vad tycker du om artikeln? Rösta!'>Rösta</a></p>")
Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/index2.asp, line 526
loop
^
Tacksam för hjälp!
Peter SMedlem sedan dec. 20025 483 inlägg Som felmeddelandet säger saknas ett "do" någonstans.
JeppewebMedlem sedan sep. 2006462 inlägg Jo, okej. Var?
if arrArticlesData(9, intArticlesLoop) = Filmer then
'display article details
response.write("<p>"& ids("Kategori") &": <a href='"& strBlogLocation &"games.asp?Category="& arrArticlesData(8, intArticlesLoop) &"' title='Kategori: "& safe_text(SQL_decode(arrArticlesData(9, intArticlesLoop))) &"'>"& SQL_decode(arrArticlesData(9, intArticlesLoop)) &"</a>")
response.write(" - "& ids("") &" "& web_time(arrArticlesData(4, intArticlesLoop), strBlogTimeFormat, "Full") &" - ")
'check comments are enabled
if arrArticlesData(5, intArticlesLoop) = 1 and intBlogCommentEnabled = 1 then
response.write(" <a href='"& strBlogLocation &"games.asp?Display="& arrArticlesData(0, intArticlesLoop) &"#Comments' title='"& ids("Antal kommentarer") &": "& safe_text(arrArticlesData(6, intArticlesLoop)) &"'>"& arrArticlesData(6, intArticlesLoop) &" "& ids("kommentarer") &"</a> - <a href='#' title='Lägg till det här spelet i dina favoriter.'>Favorit</a> - <a href='#' title='Vad tycker du om artikeln? Rösta!'>Rösta</a></p>")
end if
response.write("<p>")
'check whether the article has an exceprt
if arrArticlesData(2, intArticlesLoop) <> "" then
'display article exceprt
response.write(SQL_decode(arrArticlesData(2, intArticlesLoop)))
'display full atricle link
response.write("<p class='link'>")
response.write("<a href='"& strBlogLocation &"games.asp?Display="& arrArticlesData(0, intArticlesLoop) &"' title='"& replace(ids("Fortsätt."),"#TITLE#",safe_text(SQL_decode(arrArticlesData(1, intArticlesLoop)))) &"'>"& replace(ids("Spela"),"#TITLE#",SQL_decode(arrArticlesData(1, intArticlesLoop))) &"</a>")
response.write("</p>")
else
'display full article
response.write(SQL_decode(arrArticlesData(3, intArticlesLoop)))
response.write("<p> </p>")
'check for images and whether the gallery is enabled
if (isnull(arrArticlesData(7, intArticlesLoop)) = false and arrArticlesData(7, intArticlesLoop) <> "") and intBlogGalleryEnabled = 1 then
'display thumbnail gallery
call display_thumbs(SQL_decode(arrArticlesData(7, intArticlesLoop)))
response.write("</p>")
end if
end if
response.write("</div>")
'increment counter
intArticlesLoop = intArticlesLoop + 1
loop
end if
end if
Tacksam för hjälp..
@ndersMedlem sedan juni 200032 969 inlägg Min gissning är att det saknas ett end if som tillhör koden du pejstade in.
Indentera koden ordentligt så är det lätt att fånga upp den typen av fel.
Peter SMedlem sedan dec. 20025 483 inlägg Innan den första if-satsen, möjligtvis. Har du "do" någonstans? Om inte, varför finns "loop" med?
JeppewebMedlem sedan sep. 2006462 inlägg Grejjade det problemet.. Nu till ett annat, jag vill bara visa information från en kategori, jag har ett id på varje kategori, 0,1,2,3 osv...
if arrArticlesData(8, intArticlesLoop) = 0 then
Varför fungerar inte det där? Den visar all information ifrån alla kategorier...
Peter SMedlem sedan dec. 20025 483 inlägg Vad innehåller arrArticlesData? Uppfylls aldrig villkoret? I sådana fall finns inte värdet noll på de indexena?
