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