FUNADESP

Pessoal, estou com problemas na migração de um site. Estou migrando de um servidor com Win 2000 IIS 5.0 para um Win 2003 com IIS 6.0. A página funciona perfeitamente no servidor com Win 2000, mas quando eu coloco no servidor com Win 2003 ele dá o seguinte erro: Erro de compilação do Microsoft VBScript erro '800a03f6' 'End' esperado /erro.htm, line 188 Como pode dar esse tipo se a página roda perfeitamente no primeiro servidor!? Todas as configurações do IIS 6.0 estão iguais às do IIS 5.0. E todas as outras páginas do site eu acesso sem problemas, é só na Default.asp que dá o erro. Por favor me ajudem! [http://forum.imasters.com.br/public/style_emoticons/](http://forum.imasters.com.br/public/style_emoticons/)default/thumbsup.gif Segue o código: ``` <%Session.LCID=1036%><%Response.CacheControl = "no-cache"Response.AddHeader "pragma", "no-cache"Response.Expires = -1000ip = Request.ServerVariables("Remote_ADDR")On Error Resume Nextset cn = Server.CreateObject("ADODB.Connection")cn.provider="microsoft.jet.oledb.4.0"cn.connectionstring="..\DB\clipping.mdb"cn.openset cni = Server.CreateObject("ADODB.Connection")cni.provider="microsoft.jet.oledb.4.0"cni.connectionstring="..\DB\site.mdb"cni.openset rip = Server.CreateObject("ADODB.Recordset")sql = "INSERT INTO contador (data,ip) VALUES ('"& Date() &"','"& ip &"')" rip.open sql, cni, 3, 3set rip = Nothingset rm = Server.CreateObject("ADODB.Recordset")sql = " SELECT MAX(numero)as numero FROM clipping WHERE entrada=true"rm.open sql, cn, 3, 3numero = rm("numero")ultimo = numerorm.closeset rm = Nothingset rs = Server.CreateObject("ADODB.Recordset")sql = "SELECT titulo,texto,id_noticias, ementa FROM noticias WHERE tipo_noticia='PES' and numero=" & numerors.open sql, cn, 3, 3set rag = Server.CreateObject("ADODB.Recordset")sql = "SELECT Top 2 agenda.informacoes, agenda.datas FROM agenda WHERE (((agenda.ano)>=Year(Now())) AND (([agenda]![mes]+Left([agenda]![datas],2))>=Format(Date(),'mm')+Format(Date(),'dd'))) ORDER BY [agenda]![mes]+Left([agenda]![datas],2);"rag.open sql, cni, 3, 3set rsa = Server.CreateObject("ADODB.Recordset")sql = "SELECT logomarca,id_materia,ementa FROM Acontece_ies WHERE home_page=True "rsa.open sql, cni, 3, 3set rst = Server.CreateObject("ADODB.Recordset")sql = "SELECT titulo,id_noticias,numero FROM noticias WHERE secao='Noticias' and numero=" & numerorst.open sql, cn, 3, 3while rs.EOF rs.close numero = numero -1 sql = "SELECT titulo,texto,id_noticias FROM noticias WHERE tipo_noticia='PES' and numero=" & numero rs.open sql, cn, 3, 3wendif err.number<>0 then server.transfer("erro.htm")elsesession("m")="t" ' expandir todos os menus%>FUNADESP

<%Server.Execute "menu.asp"%>

Novidades:

NOTA DE ESCLARECIMENTO
veja](http://www.funadesp.org.br/gestao/NOTA_ESCLARECIMENTO.asp) aqui

IV Encontro Nacional de Graduação das IES Particulares aconteceu nos dias 18, 19 e 20 de abril, no Rio de Janeiro.
Veja](http://www.funadesp.org.br/eventos/graduacao/IV_encontro_informe.asp) aqui informe sobre o evento.
Veja](http://www.funadesp.org.br/graduacao/Fotos_IV_encontro.asp) aqui as fotos o evento.

Avaliação de Desempenho Institucional da Funadesp
Preencha](http://www.funadesp.org.br/avaliacao_2005/) aqui o questionário. Sua opinião é muito importante.

Prêmio Funadesp: Estudos para Desenvolvimento do Ensino Superior Particular
Faça o download do Regulamento
Veja o Edital do Prêmio
Inscrições encerradas

Reforma da Educação Superior
Veja segunda versão do anteprojeto de lei

Prêmio Funadesp de Iniciação Científica.
Veja aqui o resultado

Instruções para o envio dos resultados relevantes de projetos de pesquisa apoiados pelo Programa de Bolsas da Funadesp.
Faça o download das instruções

Participe do Fórum de Discussão: Dê aqui sua opinião sobre o Anteprojeto da Lei Orgânica da Educação Superior (Reforma Universitária), apresentado, pelo Ministério da Educação, à sociedade civil, em dezembro de 2004.

sandrooc

Banner Rotativo - Como Saber O Tempo Do Mc?

erro '800a03f6'