<%dim showBorder
showBorder = 1
if showBorder=1 then
response.write "border=1"
elseif showBorder=0 then
response.write "border=0"
end if%>
<html>
<head><title>Testsida</title></head>
<body>
<center><H2>Skapa tabeller på ett enkelt sätt</H2></center>
<P>
<code>
En tabell består av själva tabellen <TABLE>, i tabellen finns en tabellrad <TR> som börjar och bryter rader. Där själva innehållet i tabellen finns kallas tabelldatacell <TD>. För att webläsaren ska förstå och för att man ska kunna utläsa koden så måste man dessutom avsluta elementen med / som i </TABLE> , </TR> och </TD>
</code>
<P>
<TABLE>
<TR>
<TD VALIGN="TOP">
<TABLE <%=showBorder%> HEIGHT="150" WIDTH="400">
Ja, du sätter ju showBorder till 1, är det att du vill ha det som en border så ta bort response.write och sätt showBorder till det sträng värde istället.
<%dim showBorder
showBorder = 1
if showBorder = 1 Or showBorder = 0 Then
showBorder = "border=""" & showBorder & """"
End If
%>
<html>
<head><title>Testsida</title></head>
<body>
<center><H2>Skapa tabeller på ett enkelt sätt</H2></center>
<P>
<code>
En tabell består av själva tabellen <TABLE>, i tabellen finns en tabellrad <TR> som börjar och bryter rader. Där själva innehållet i tabellen finns kallas tabelldatacell <TD>. För att webläsaren ska förstå och för att man ska kunna utläsa koden så måste man dessutom avsluta elementen med / som i </TABLE> , </TR> och </TD>
</code>
<P>
<TABLE>
<TR>
<TD VALIGN="TOP">
<TABLE <%=showBorder%> HEIGHT="150" WIDTH="400">
Det ända jag har gjort är för att se till att QS frågor också fungera:
<%dim showBorder
If IsNumeric(Request.QueryString("borderSize")) Then
showBorder = CInt(Request.QueryString("borderSize"))
if showBorder = 1 Or showBorder = 0 Then
showBorder = "border=""" & showBorder & """"
End If
End If
%>
Få både border 0 och border 1 när jag kör båda frågorna.