Förbättra koden?

Någon som har förslag på hur jag kan förbättra koden nedan?

<%
Dim vad
vad=Request.QueryString("do")

'-------------------------------------------------------------------------------------------------
If vad = "pic" Then
%>
                          <font size="+1"><strong><%=namn%> bild sessions</strong></font><br>
                          <br>
<a href="ladda_upp.asp?do=<%=namn%>&id=<%=catID%>">Ladda upp din <%=namn%> session</a><br>
<br>

<%
SQL = "SELECT DISTINCT (bildID) FROM extreme_pic WHERE catID="& Request.QueryString("catID") &" AND vilket=0 AND godk=1 ORDER by datum DESC"

Set Rs = Connect.execute(SQL)

If Rs.EOF Then
Response.Write("<em>Inga bilder ligger uppe</em>")
Else
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
                            <tr> 
                              <td width="51%"><strong>Rubrik</strong></td>
                              <td width="19%"><strong>Bilder</strong></td>
                              <td width="30%"><strong>Datum</strong></td>
                            </tr>
<%

Do Until Rs.EOF
nummer = nummer +1

SQL2 = "SELECT id,rubrik,slaf,datum  FROM extreme_pic WHERE bildID = "& Rs("bildID")

Set Rs2 = Connect.execute(SQL2)
%>
                            <tr> 
                              <td><a href="bilder.asp?do=open&id=<%=Rs("bildID")%>&namn=<%=Request.QueryString("namn")%>&titel=<%=Rs2("rubrik")%>"><%=Rs2("rubrik")%></a></td>
                              <td>
<%
SQL3 = "SELECT Count(bildID) AS antal FROM extreme_pic WHERE bildID = "& Rs("bildID")

Set Rs3 = Connect.execute(SQL3)

response.write Rs3("antal")

Rs3.Close : Set Rs3=nothing
%> st</td>
                              <td>
<%
check = DateDiff("d", Date, Rs2("datum")) 
if check = 0 then 
response.write "<font color='#FF0000'><b>idag</b></font> kl "& FormatDateTime(Rs2("datum"), 4) &" " 
elseif check = -1 then 
response.write "<b>igår</b> kl "& FormatDateTime(Rs2("datum"), 4) &" " 
Else
Response.Write (""& Day(Rs2("datum")) & " " & MonthName(Month(Rs2("datum")),True) &" kl "& FormatDateTime(Rs2("datum"), 4) &"") 
End If 
%>
</td>
                            </tr>
                            <%
Rs2.Close : Set Rs2=nothing
Rs.MoveNext
Loop
Rs.Close : Set Rs=nothing
%>
                          </table>

<%
End If
%>

<br>
<br>

<br>
<br>
<br>
<br>
<br>

<%
'-------------------------------------------------------------------------------------------------
ElseIf vad = "open" Then

SQL = "SELECT * FROM extreme_pic WHERE bildID = "& Request.QueryString("id") &" ORDER BY datum"
Set Rs = Connect.Execute(SQL)
%>

<font size="+1"><strong><%=Rs("rubrik")%></strong></font><br>
<%=Rs("beskri")%>
<br><br>
Sessionen uppladdad av: <a href="../plejs.asp?se=<%=Rs("slaf")%>"><%=Rs("slaf")%></a>
<br>
<hr>
<%
Do Until Rs.EOF
  
Numcols = 2	             '0=== Antal kolumner i din tabell ===0

		If Not Rs.EOF then

		
Response.Write "<TABLE width='100%' border='0' cellspacing='0' cellpadding='1'>"
			
			Do Until Rs.EOF
			

			
				Response.Write "<TR>"
				For i=1 to Numcols
					Response.Write "<TD width=""50%"">"
					If Rs.EOF then
						Response.Write ""
					Else
'------------------------------

%>
<a href="visa.asp?id=<%=Rs("id")%>&catID=Skate">
<img src="bilder/upload/<%=Rs("bildnamn")%>_thumb<%=Rs("sort")%>" border="0" align="left"></a>
<strong>Foto:</strong><br>
<%=Rs("photo")%><br><br>

<strong>Storlek:</strong><br>
<%=Rs("storlek")%>Kb<br>
<strong>Visad:</strong><br>
<%=Rs("viz")%><br>

<%

'-------------------------------

						Rs.MoveNext
					End If
					Response.Write "</TD>"
				Next
				Response.Write "</TR>"
			Loop
			Response.Write "</TABLE>"

		End If

Loop

Rs.Close : Set Rs=Nothing
'#############################################################
%>
<br>

<%
End If
%>