Jonathan, Não resolveu, obrigado... Quando executo o site pelo desktop que está hospedado no servidor de internet, ele roda certinho, mas quado executo no IIS do meu desktop apresenta o erro, e quando executo no IIS do notebook roda certinho tambem! Como disse o problema está somente no desktop. <% AbreConexao
Dim RS, mMes
mMes = Mid(Now,4,2)
Sql = "SELECT * FROM Membros Where Mid(Nascimento,4,2) = '" & mMes & "'"
Sql = Sql & " And Tirado <> '" & "S" & "'"
Sql = Sql & " And Morte <> '" & "S" & "'"
Sql = Sql & " ORDER BY Mid(Nascimento,1,2), Nome"
set Rs = conexao.execute(Sql) %>
<table border="0" width="100%" id="table7" bgcolor="#FFFFCC">
<tr>
<td>
<p align="center"><b><font face="Trebuchet MS" size="2">Aniversariantes do mês</font></b></p>
</td>
</tr>
<%
if not Rs.Eof then
while not Rs.eof %>
<tr>
<td>
<font face="Trebuchet MS">
<%
if Mid(RS("Nascimento"),1,2) = Mid(Now,1,2) then %>
</font>
<b>
<font color="#FF0000" face="Trebuchet MS" size="1"><%=Mid(RS("Nascimento"),1,2)%> - <%=RS("Nome")%></font></b><font face="Trebuchet MS">
<%
Else %>
</font>
<font face="Trebuchet MS" size="1"><%=Mid(RS("Nascimento"),1,2)%> - <%=RS("Nome")%></font><font face="Trebuchet MS">
<%
End If %>
</font>
</td>
<%
Rs.MoveNext %></tr><%
wend
End If
FechaConexao %>
</table> Obrigado, Fauze