Skriva ut från databas

Hur blir koden om jag vill skriva ut "arkivet" direkt istället för att man ska behöva klicka fram det med <a href="?p=2&arcive=yes">Past Shows</a> länken. Arkivet ska skrivas ut direkt där länktexten nu står. Hur går detta till? :q

<table border="0" cellpadding="0" cellspacing="0">
  <tr valign="top">
	<td width="90"><strong>Country</strong></td>
	<td><img src="graphic/blank.gif" width="5" height="1" alt="" border="0"></td>
	<td width="100"><strong>City</strong></td>
	<td><img src="graphic/blank.gif" width="5" height="1" alt="" border="0"></td>
	<td width="200"><strong>Venue</strong></td>
	<td><img src="graphic/blank.gif" width="5" height="1" alt="" border="0"></td>
	<td width="200"><strong>Date</strong></td>
</tr><%
Session.LCID = 1033
if request("arcive") <> "yes" then
	set rs = databas.execute("SELECT * FROM tour order by datum")
	do until rs.eof
			if rs("datum") => date then
					response.write "<tr valign=""top""><td colspan=""7""><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td></tr>"
					response.write "<tr valign=""top""><td>" & left(rs("country"),20) & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td>" & rs("city") & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td>" & rs("venue") & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td><nobr>" & FormatDateTime(rs("datum"),1)  & "</nobr></td></tr>"
			end if
	rs.movenext
	loop
	rs.close
else
	set rs = databas.execute("SELECT * FROM tour order by datum desc")
	do until rs.eof
			if rs("datum") < date then
					response.write "<tr valign=""top""><td colspan=""7""><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td></tr>"
					response.write "<tr valign=""top""><td>" & left(rs("country"),20) & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td>" & rs("city") & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td>" & rs("venue") & "</td>"
					response.write "<td><img src=""img/blank.gif"" width=""5"" height=""5"" alt="""" border=""0""></td>"
					response.write "<td><nobr>" & FormatDateTime(rs("datum"),1)  & "</nobr></td></tr>"
			end if
	rs.movenext
	loop
	rs.close
end if

%></table>

<br>

<%if request("arcive") <> "yes" then%>
<a href="?p=2&arcive=yes">Past Shows</a> 
<% else %>
<a href="?p=2&arcive=no">Current Shows</a> 
<%end if%>