Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

sandrooc

erro '800a03f6'

Por , em ASP Clássico

Recommended Posts

sandrooc    0

sandrooc
Postado

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/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%><html><head><title>FUNADESP</title><meta name="generator" content="Namo WebEditor v5.0(Trial)"><link href="style.css" rel="stylesheet" type="text/css"><script type="text/javascript"><!--var p=1;var titulos = new Array();var mark = new Array();<% i=0while not rst.EOF %>titulos[<%=i%>]='<%=rst("titulo")%>'mark[<%=i%>]=<%=rst("id_noticias")%><%i=i+1rst.movenextwend%>function noticias(){n = document.getElementById("clipping");n.innerHTML=titulos[p];n.href="http://www.funadesp.org.br/clipping/edicao.asp?numero="+<%=ultimo%>+"#"+mark[p];p=p+1;if (p>=titulos.length)	p=0;}function inicializa(){setInterval('noticias()',5000);}--></script>   	 <style><!--a:link.noticia { font-family:Verdana,sans-serif; font-style:normal; font-weight:bold; font-size:11pt; color:rgb(0,102,51); text-decoration:none; }a:active.noticia { font-family:Verdana,sans-serif; font-style:normal; font-weight:bold; font-size:11pt; color:rgb(0,102,51); text-decoration:none; }a:visited.noticia { font-family:Verdana,sans-serif; font-style:normal; font-weight:bold; font-size:11pt; color:rgb(0,102,51); text-decoration:none; }a:hover.noticia { font-family:Verdana,sans-serif; font-style:normal; font-weight:bold; font-size:11pt; color:rgb(0,102,51); text-decoration:underline; }--></style></head><body leftmargin="8" marginwidth="3" topmargin="8" marginheight="3" bgcolor="#F2F2F2"><table width="760" border="0" align="center" bgcolor="white">  <tr>     <td height="524" width="977" valign="top" >                  <table width="100%" border="0" background="images/faixa_logo.jpg" style="background-repeat:no-repeat; margin-top:5pt;">              <tr>                 <td width="742" height="76">                                    <p align="right"><img src="images/menu/menu.gif" width="454" height="56" border="0" usemap="#ImageMap1"> </td>        </tr>      </table>                            <table border="0" width="100%">        <tr>                              <td width="192" valign="top">                                     <p style="margin-top:7;"><%Server.Execute "menu.asp"%>                    </td>                    <td width="780" valign="top">                  <table border="0" align="center" cellspacing="0" width="100%">              <tr bgcolor="#ffffff">                 <td width="100%" height="291" style="padding-top:8;" align="left" valign="top"><table width="100%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#999999" background="images/fundo_tabela_e.gif" style="background-repeat:repeat-x;" darkbordercolor="#666666" lightbordercolor="#ffffff">                    <tr>                       <td width="100%" height="611" bordercolor="#FFFFFF">                         <table width="100%" border="0" cellpadding="7">                          <tr>                             <td height="46"><b><font color="#000000"><span class="corpo">Novidades:	                               </span></font></b> </td>                          </tr>                        </table>                        <table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:0; margin-bottom:0;">                          <tr>                             <td width="100%" height="387">                               <p class="corpo_centro"><strong> NOTA DE ESCLARECIMENTO<br>         <a href="http://www.funadesp.org.br/gestao/NOTA_ESCLARECIMENTO.asp">veja aqui</a>         <br>         <br>IV Encontro Nacional                                 de Graduação das IES Particulares aconteceu nos                                 dias 18, 19 e 20 de abril, no Rio de Janeiro.<br>                                <a href="http://www.funadesp.org.br/eventos/graduacao/IV_encontro_informe.asp">Veja                                 aqui informe sobre o evento.</a><br>                                <a href="http://www.funadesp.org.br/graduacao/Fotos_IV_encontro.asp">Veja                                 aqui as fotos o evento.</a> <br>                                <br>                                Avaliação de Desempenho Institucional                                 da Funadesp<br>                                <a href="http://www.funadesp.org.br/avaliacao_2005/">Preencha                                 aqui o questionário</a>. Sua opinião                                 é muito importante.<br>                                <br>                                Prêmio Funadesp: Estudos para Desenvolvimento                                 do Ensino Superior Particular <br>                                <a href="downloads/PREMIO_ESTUDOS.pdf" target="_blank">Faça                                 o download do Regulamento</a><br>                                <a href="downloads/Edital_Premio_Estudos.pdf" target="_blank">Veja                                 o Edital do Prêmio</a><br>        Inscrições encerradas<br>                                <br>                                Reforma da Educação Superior<br>                                <a href="downloads/reforma2_300505.pdf" target="_blank">Veja segunda versão do anteprojeto de lei</a> <br>                               <br> Prêmio Funadesp de Iniciação Científica.<br>                                <a href="premio/nacional_ic/Resultado_premio_ic.asp">Veja                                 aqui o resultado </a><br>                                <br>                                Instruções para o envio dos resultados relevantes                                 de projetos de pesquisa apoiados pelo Programa                                 de Bolsas da Funadesp.<br>                                <a href="Programas_bolsas/Envio_resultados.asp">Faça                                 o download das instruções</a><br>                                </strong> </p>                              </td>                          </tr>                          <tr>                             <td width="100%">                               <table width="100%" height="89" border="0" style="margin-top:4;">                                <tr>                                   <td width="574" height="85">                                     <p class="corpo_centro" style="margin-top:4; margin-bottom:6;" align="left"><img src="images/foruns_color.gif" width="26" height="18" border="0">                                       <a href="../foruns/geral/forum_provao.asp">Participe                                       do Fórum de Discussão:</a> <strong><B>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.</B><br>                                      </strong></p></td>                                </tr>                              </table></td>                          </tr>                          <tr>                             <td width="100%" height="73" valign="top">                               <table style="margin-top:4; margin-bottom:0;" border="0" width="85%">                                <tr>                                   <td width="126" height="65">                                     <p style="margin-top:0; margin-bottom:0;" align="right"><img src="images/gestaoIES_peq.jpg" width="117" height="38" border="0"></p>                                    <p style="margin-top:0; margin-bottom:0;" align="right"><a href="clipping/edicao.asp?numero=<%=ultimo%>"><span class="corpo_centro"><%=ultimo%>ª                                       Edição</span></a></p></td>                                  <td width="358"> <p class="corpo_centro" style="margin-top:4; margin-bottom:6;" align="left">                                       <%rst.MoveFirst%>                                      <a id="clipping" class='noticia' href='clipping/edicao.asp?numero=<%=rst("numero")%>#<%=rst("id_noticias")%>'><%=rst("titulo")%></a></p></td>                                </tr>                              </table></td>                          </tr>                        </table></td>        </tr>      </table>                                     <table width="100%" border="1" cellspacing="0" cellpadding="4" align="center" background="images/fundo_tabela_e.gif" bordercolor="#999999" darkbordercolor="#666666" lightbordercolor="#ffffff">                    <tr>                       <td width="100%" bordercolor="#FFFFFF" height="170"> <table width="75%" border="0" cellpadding="4">                          <tr>                            <td><b><span class="corpo">Agenda Funadesp 2005 -                               <a href="agenda/agenda.asp?m=8">Confira!</a><font color="#003E16"><span class="corpo"></span></font></span></b></td>                          </tr>                        </table>                        <table style="margin-top:0; margin-bottom:0;" border="0" width="100%" cellpadding="0" cellspacing="0">           <%while not rag.EOF %>                                                                <tr>                                                                                                <td width="100%" height="60" > <p class="corpo_centro" style="text-align:left;"><b><%=rag("datas")%></b><br>                                <br>                                <%=rag("informacoes")%></p>                                            	 </td>                                                                </tr><%rag.movenextwend%>                                                           <tr>                                                                    <td width="100%" height="37">                                                                                                            <p class="corpo" style="margin-top:4; margin-bottom:4;"> </p>                                                                    </td>                                                                </tr>                                                            </table>          </td>        </tr>      </table> <b><span class="corpo"><a href="mapa_site.asp"><img src="images/branco.gif" width="5" height="2" border="0"></a></span></b><table width="100%" border="1" cellspacing="0" cellpadding="10" align="center" background="images/fundo_tabela_e.gif" bordercolor="#999999" darkbordercolor="#666666" lightbordercolor="#ffffff" style="background-repeat:repeat-x;">  <tr>                       <td width="100%" bordercolor="#FFFFFF" height="136">                         <p class="texto"><b><span class="corpo">Políticas                                                 de Educação Superior:</span><font color="#003E16"><span class="corpo"><br> </span></font></b>                                                                                                                        <table style="margin-top:0; margin-bottom:0;" border="0" width="100%" cellpadding="0" cellspacing="0">           <% i = 0           while not rs.EOF AND i<3%>                                                                <tr>                                                                    <td width="100%" height="63" valign="top" >                                                <p class="corpo_centro" style="margin-top:4;"><a href="home_politicas/pes.asp?id=<%=rs("id_noticias")%>"><%=rs("titulo")%></a>: <%if rs("ementa")<>"" then   	 response.write replace(rs("ementa"), "<br>",vbcrlf )    end if%><br> </p>                                                                    </td>                                                                </tr>           <%           i=i+1           rs.movenext           wend           %>                                                            </table>                                                                     </td>        </tr>      </table> <table width="100%" border="1" cellspacing="0" cellpadding="10" align="center" background="images/fundo_tabela_e.gif" bordercolor="#999999" darkbordercolor="#666666" lightbordercolor="#ffffff" style="background-repeat:repeat-x;">  <tr>           <td width="100%" bordercolor="#FFFFFF">             <p class="texto"><b><span class="corpo">Acontece                                                 nas IES:</span><font color="#003E16"><span class="corpo"><br> </span></font></b>                                                                                                    <table style="margin-top:0; margin-bottom:0;" border="0" width="100%" cellpadding="0" cellspacing="0">          <%            while not rsa.EOF %>                                                        <tr>                                                            <td width="103" height="83">                                                                                                                                            <p align="center"><img src="home_acontece_ies/<%=rsa("logomarca")%>"  border="0"></p>                                                            </td>                                                            <td width="100%" height="83">                                                                <p class="corpo_centro"><%if rsa("ementa")<>"" then   	 response.write replace(rsa("ementa"), "<br>",vbcrlf )    end if%> <a href='home_acontece_ies/acontece_ies.asp?id_materia=<%=rsa("id_materia")%>'>Leia                                                                             mais</a><br> </p>                                                            </td>                                                        </tr>      <%          rsa.movenext          wend          %>                                                    </table>                                                         </td>        </tr>      </table></td>                </tr>                <tr>                    <td width="100%" style="background-repeat:no-repeat; border-top-color:rgb(0,0,0); border-right-color:rgb(0,0,0); border-bottom-color:rgb(0,0,0);" height="26">                                          <p align="center" style="margin-top:0; margin-bottom:0;"><span class="utilitario"><font color="#666666">FUNADESP                     - Fundação Nacional de Desenvolvimento do Ensino Superior                                     Particular</font></span></p>                        <p style="margin-top:0; margin-bottom:0;" align="center"><span class="utilitario"><font color="#666666">Endereço:                         SCS Quadra 07 Bloco "A"                             Sala 726  Torre do Pátio Brasil Shopping.                              Cep: 70300-911</font></span></p>                        <p style="margin-top:0; margin-bottom:0;" align="center"><span class="utilitario"><font color="#666666">E-mail:                         </font><a href="menu/faleconosco.asp"><font color="#666666">funadesp@funadesp.org.br</font></a><font color="#666666">                         - Telefone:                         (61) 3222171 - Brasília/DF</font></span></p>                    </td>                </tr>            </table>                                </td>                </tr>            </table>    </td>  </tr></table><map name="ImageMap1"><area shape="rect" coords="2, 2, 57, 54" href="http://www.funadesp.org.br/" target="_self"><area shape="rect" coords="67, 2, 121, 55" href="http://www.funadesp.org.br/site/contato.asp" target="_self"><area shape="rect" coords="136, 2, 189, 55" href="http://www.funadesp.org.br/ponto_vista/ponto.asp" target="_self"><area shape="rect" coords="197, 2, 255, 55" href="http://www.funadesp.org.br/foruns/geral/forum_provao.asp" target="_self"><area shape="rect" coords="269, 2, 325, 55" href="javascript:alert('Imprime páginas internas do site')" target="_self"><area shape="rect" coords="339, 2, 385, 55" href="http://www.funadesp.org.br/site/busca.asp"><area shape="circle" coords="432, 11, 9" href="javascript:alert('Aumenta a fonte somente nas páginas internas do Site');"><area shape="circle" coords="431, 30, 8" href="javascript:alert('Diminui a fonte somente nas páginas internas do Site');"></map></body></html><%rs.closeset rs = Nothingrst.closeset rst = Nothingrag.closeset rag = Nothingcni.closeset cni = Nothingcn.closeset cn = Nothingip = Nothingsql = NothingSession("m")=NothingSession.Abandonend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o codigo ta muito grande fica dificil parar pra procurar onde esta o erro...bem mas seguindo a dica da mensagem de erro, você deve procuarar if's que não tenha seus respectivos end if's...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito