Ho serie difficoltà a eliminare la tabelle e le rispettive righe e colonne da qs codice

codice:
<%
Giorno = day(now)
Mese = month(now)
Anno = year(now)
dtmData = month(now)
mydate = Date()

MeseNow = month(now)
%>
<table border="2" cellpadding="2" cellspacing="2" 
style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<%
'creo la data iniziale del mese
DataInizio= "01/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)

'inizializzo il contatore dei giorni del mese
CounterDay = 1
'ciclo scansione settimane
for Week=0 to 5
'Response.Write("<tr>")
'ciclo che scandisce i giorni della settimana
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
'2 indica che Lunedi
if DayAttuale = DayX then
if Mese=Month(DataInizio) then
%>

<%
'generazione cella calendario
if CounterDay = Giorno and Mese = Mese then
'Coloro la cella per data odierna
Response.Write ("<td width='100' height='100' 
style='padding: 0' valign='top' bgcolor='#FFFFD4'>")
Response.Write ("<font face='Verdana' size='2' color='#FFFFFF'><center>
<a href=""NuovaFinestra.asp?giorno=" & 
CounterDay & "&mese=" & Mese & "&anno=" & Anno & """>" 
& (WeekDayName(WeekDay(mydate))) & " " & CounterDay & "</a></center></font>")
Response.Write ("
")
else
Response.Write("<td width='100' height='100' 
style='padding: 0' valign='top' bgcolor='#EFF3F6'>")
Response.Write ("<font face='Verdana' size='5' color='#336699'><center>
<a href=""NuovaFinestra.asp?giorno=" & CounterDay & "&mese=" 
& Mese & "&anno=" & Anno & """>" & (WeekDayName
(WeekDay(mydate))) & " " & CounterDay & "</a></center></font>")
Response.Write ("
")
end if
%>

<%
'Chiudo la cella del calendario
Response.Write ("</td>")
%>

<%
'Continuo con un altro giorno

DataInizio=dateadd("d",1,DataInizio)
CounterDay=CounterDay+1
else
'se il mese del giorno non e uguale a quello
'attuale allora il calendario h terminato esco
'dal ciclo ponendo Week = 5
Week=5
end if
else
'se il giorno non fa parte del mese
'attuale stampo una cella vuota
Response.Write("<td width='100' height='100'> </td>")
end if
next
%>

<%
'Chiudo la settimana
Response.Write("</tr>")
next
%>

<%
'Chiudo il calendario
Response.Write("</tr>")
Response.Write("</table>")
%>
per metterlo in div