Hej!

Har kört fast i tänket och behöver lite hjälp...
I en programsats så anropar jag en Case-sats (som är en del i en funktion) via en länk, typ:

<code>
If Len(rs1(3)) >100 Then
Response.Write Left(rs1(3),1002)&"<br>...Läs mer</font></td></tr>"
</code>

Jag vill att när texten innehåller mer än 100 tecken, så ska jag hoppa direkt till Case4 och inte klicka på en länk ( och givetvis få med mig variabelinformationen).
Tacksam för hjälp.

Mvh
Paul

Va?
Kan du förklara lite mer, gärna bifoga case satsen.

Här kommer Case-satsen:
<code>
case 4

query = "select * from Newstbl where cat = "&cat&" and newsid = "&infoid&" and activated = true and
newsexpiry > #"& date() &"#"
set rs = dataconn.Execute(query)
if not rs.eof then
Response.Write "<br><TABLE WIDTH=100% align=center valign=top BORDER=0
CELLSPACING=0 CELLPADDING=4>"

Response.Write "<tr><td width=100% valign=top><FONT face="&fontface&"
size="&fontsize&" color="&fontcolor&">"
Response.Write "<b>"&rs("newsname")&"</b> <em>"&rs("newsdateadded")
&"</em><br><br>"
Response.Write rs("newsdescription")&"<br><br>"
Response.Write "<b>Skribent</b><br><i>"&rs("newsauthorname")& " - " &rs("newsauthoremail")&"</i><br><br><br><br>"

end if
Response.Write "</font></td></tr>"
Response.Write "</table>"

query3 = "select catname from Cattbl where cat = "& cat
set rs3 = dataconn.Execute(query3)
if not rs3.eof then
query1 = "select newsid,newsname from Newstbl where typ = "& typ &" and activated = true and newsid
<> "&infoid&" and newsexpiry > #"& date() &"# order by newsdateadded desc"
set rs1 = dataconn.Execute(query1)
if not rs1.eof then
Response.Write "<br><br><br><center><FONT face="&fontface&"
size=2><STRONG>Tidigare publicerade artiklar</STRONG></center>"
Response.Write "<TABLE WIDTH=100% align=center valign=top style="&tablestyle&"
BORDER=0 CELLSPACING=0 CELLPADDING=4>"
Response.Write "<tr><td width=100% bgcolor="& headerbgcolor&" valign=top><FONT
face="&fontface&" size="& headerfontsize&" color="& headerfontcolor&"><b>"&rs3(0)&"</b></font></td></tr>"
do until rs1.eof
Response.Write "<tr><td width=100% valign=top><FONT face="&fontface&"
size="&fontsize&" color="&fontcolor&"><img src=images/display.gif border=0
align=absmiddle>&nbsp;&nbsp;&""">"&rs1(1)&"</font></td></tr>"
rs1.movenext
loop
Response.Write "</table>"
end if
rs1.close
set rs1 = nothing
end if
rs3.close
set rs3 = nothing

else
Response.Write "<br><TABLE WIDTH=100% align=center valign=top style="&tablestyle&"
BORDER=0 CELLSPACING=0 CELLPADDING=4>"
Response.Write "<tr><td width=100% bgcolor="& headerbgcolor&" valign=top><FONT
face="&fontface&" size="& headerfontsize&" color="&
headerfontcolor&"><STRONG>Nyhetsartiklar</STRONG></font></td></tr>"
Response.Write "<tr><td width=100% valign=top><FONT face="&fontface&"
size="&fontsize&" color="&fontcolor&">Inga artiklar funna i arkivet</font></td></tr>"
Response.Write "</table>"
end if
rs.close
set rs = nothing

case else
End select

dataconn.Close
set dataconn = nothing

End Function%>
</code>

Det går inte med en case-sats att säga så. Du får då använda en if-sats istället. Det du kan göra är att välja flera saker på samma förutsättning, ex case 3,4,5 och i vb case 3,5 to 8 och då fångas dessa förutsättningar. Men därinne i 3,4 får du använda if-satser för att göra förutsättningen rätt.

case 3,4
       if len(x) > 100 then
       else
          // mindre än 100
       end if
case 5

huga vilken spagetti...