Jag har precis börjat skapa min sida i tabeller och det känns som om jag gör det på ett klumpigt sätt. Nedanstående kod kommer ju att bli jättelång och ändå är detta för 5 länkar. När man är färdig kanske det kommer att bli ca 50. Även i layout läge blir ju tabellen typ 20 meter bred. Kan man inte lösa det på ett smartare sätt?

En kodsnutt:
<tr>
<%If Request.QueryString("sida") = "" Then%>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top"><%Server.Execute("startsida.asp")%></td>
<td valign="top"><%Server.Execute("right.asp")%></td>
<%ElseIf Request.QueryString("sida") = "gastbok" Then%>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top"><%Server.Execute("gastbok.asp")%></td>
<td valign="top"><%Server.Execute("right.asp")%></td>
<%ElseIf Request.QueryString("sida") = "forum" Then%>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top"><%Server.Execute("forum.asp")%></td>
<td valign="top"><%Server.Execute("right.asp")%></td>
<%ElseIf Request.QueryString("sida") = "nyheter" Then%>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top"><%Server.Execute("nyheter.asp")%></td>
<td valign="top"><%Server.Execute("right.asp")%></td>
<%ElseIf Request.QueryString("sida") = "discgolfare" Then%>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top"><%Server.Execute("startsida.asp")%></td>
<td valign="top"><%Server.Execute("right.asp")%></td>
<%End If%>
</tr>

MVH/Marcus

Testa något sånt här:

<tr>
<td valign="top"><%Server.Execute("left.asp")%></td>
<td valign="top">
<%
strQueryString = Request.QueryString("sida")

Select Case strQueryString
Case "gastbok"
Server.Execute(strQueryString & ".asp")
Case "forum"
Server.Execute(strQueryString & ".asp")
Case "nyheter"
Server.Execute(strQueryString & ".asp")
Case "discgolfare"
Server.Execute(strQueryString & ".asp")
Case Else
Server.Execute("startsida.asp")
%>
</td>
<td valign="top"><%Server.Execute("right.asp")%></td>
</tr>

Lite snyggare sätt att skriva det på:
<code>
<tr>
<td valign="top"><%Server.Execute("left.asp")%></td>
<%
Select Case Request.QueryString("sida")
Case "gastbok"
Server.Execute("gastbok.asp")
Case "forum"
Server.Execute("forum.asp")
Case "nyheter"
Server.Execute("nyheter.asp")
Case Else
Server.Execute("startsida.asp")
End Select
%>
<td valign="top"><%Server.Execute("right.asp")%></td>
</tr>
</code>