HTTP 500 - erro interno do servidor

[marceloado]

O que tem de errado neste código galera, pois só retorna erro.

Grato por qualquer ajuda.

<table width="504">

<tr>

<td valign="top" align="left" width="262">

</td>

<td valign="top" align="right" width="230">

<%

dim mes, calendario

mes = month(now())

select case mes

case 1

calendario = "jan2006.asp"

case 2

calendario = "fev2006.asp"

case 3

calendario = "mar2006.asp"

case 4

calendario = "abr2006.asp"

case 5

calendario = "mai2006.asp"

case 6

calendario = "jun2006.asp"

case 7

calendario = "jul2006.asp"

case 8

calendario = "ago2006.asp"

case 9

calendario = "set2006.asp"

case 10

calendario = "out2006.asp"

case 11

calendario = "nov2006.asp"

case 12

calendario = "dez2006.asp"

End Select

%>

</td>

</tr>

<tr>

<td colspan="2" width="492">

<hr align="left" width="495" size="2" color="#800000" />

</td>

</tr>

<tr>

<td colspan="2" width="492">

<p align="justify" title="Justificativa a respeito dos Links que Não Funcionam" style="color:#FF0000; font-family:sans-serif,Verdana, Arial, Helvetica; font-weight:normal; font-size:10px"><font color="#0000FF">ATENÇÃO!!!</font>

Alguns Links ainda não foram habilitados para funcionar, isto não é um indicativo de erro, pelo contrário, esta página ainda se encontra em fase de construção, sendo assim, por favor contribua com o designer da mesma enviando uma mensagem com a sua opinião para o desenvolvedor.

A ARLS Acácia Balsense agradece a sua visita e espera por você novamente o mais breve possível, pois a cada dia teremos novidades por aqui.</p>

</td>

</tr>

</table>