Här är en kod, som ska hämta en del arkivnamn, och antal bilder i varje arkiv, och sedan skriva ut det som länkar.
Men det vill inte fungera ordentligt.
Om ni tittar på: http://soulgod.no-ip.info/cina/bildarkiv.asp
Så ser ni felet. Första valet blir en länk, men resten blir inga länkar.
Vad är fel?
<%
arkiv = Request("arkiv")
if arkiv = "" then
arkiv = 1
end if
For rows2 = 0 to intRows2
if CLng(arkiv) = CLng(arrRs2(0,rows2)) then
Response.Write "<a href="&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
else
Response.Write "<a href"&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
end if
set count = connect.execute("SELECT Count(*) AS antalbilder FROM bildarkiv WHERE katid = "&arrRs2(0,rows2)&"")
response.write " ("&clng(count("antalbilder"))&")"
Response.Write "</a>"
Next
Response.Write "<hr color='#000000' widht='200'>"
end if
%>
If CLng(arkiv) = CLng(arrRs2(0,rows2)) then
Response.Write "<a href="&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
else
Response.Write "<a href"&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
end if
Ändra till
If CLng(arkiv) = CLng(arrRs2(0,rows2)) then
Response.Write "<a href="&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
else
Response.Write "<a href[b]=[/b]"&arrRs2(0,rows2)&">"&arrRs2(1,rows2)
end if
Hmph, gick inte att visa fetstil i kodfälten.
Du har alltså missat ett =-tecken i else-satsen. href=<- alltså
Ah, tack. Där var det ;)
Men dock, märkte jag nu, att det länkar "fel"...
Det ger mig länken "13" t.ex.. eller "1"..
Jag vill få in det i en hel länk...
Tack.. :)
Till nästa problem som jag precis kom på....
Om jag vill att första länken som den hämtar, inte ska vara en länk...
Alltså ID = 1 ska inte vara länk, men resten ska vara det..
