Ir para conteúdo

POWERED BY:

Arquivado

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

WebStrong

Microsoft VBScript runtime error '800a000d'

Por , em ASP Clássico

Recommended Posts

WebStrong    0

WebStrong
Postado

Olá pessoal,

Meu site apareceu o seguinte erro:

 

Microsoft VBScript runtime error '800a000d' 

Type mismatch: '[string: "5352151<script src=h"]' 

/nova/n_principal.asp, line 12

 

O meu codigo fonte desta pagina é:

 

<% Server.ScriptTimeout = 300 %><head>
<link rel="shortcut icon" type="image/x-icon" href="/fotos/loginho.gif" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#INCLUDE FILE="n_cabecalho.asp"-->
<%
	' CONTADOR CONTA UM
	' If Session("JaContou") = "" then
	CodigoContar = 1+0
	sql = "SELECT Codigo,Contador FROM Contador where Codigo = "& CodigoContar &" "
	Set rsContador = Server.CreateObject("ADODB.Recordset")
	rsContador.Open sql, conn
	Conta = rsContador.Fields("Contador").Value+0+1
	conn.Execute "UPDATE Contador SET Contador ="& Conta &" WHERE Codigo ="& CodigoContar &" "
	rsContador.Close
	' Session("JaContou") = "Sim"
	' End if
%>

</head>




<center>

<table width="740" cellpadding="0" cellspacing="10" border="0">
  <tr>

	<td colspan="3" align="center" valign="middle"><font class="texto"><i><!--#INCLUDE FILE="n_versiculos.asp"--></i></font></td>

  </tr>

  
<%
   
%>

	</font>
	</td>
  </tr>
  <tr>
	<td colspan="3" align="center" valign="middle">
	<font class="texto">


<!-- INCLUDE CONTAGEM REGRESSIVA -->


<!-- AVISOS DA RADIO -->

<%
	' ========================= HOME INICIO ============================================
	sql = "SELECT * FROM Home where Codigo = '"& CodigoHome &"' "
	Set rsHome = Server.CreateObject("ADODB.Recordset")
	rsHome.Open sql, conn, 3, 3
	If NOT rsHome.EOF then
%>

<font class="texto"><% = replace(rsHome.Fields("Pagina").Value,"size=""2""","class=""texto""") %></font><br>

<%
	UltimaAtualizacao = "<font class=textopeq><i>Última atualização: " & rsHome.Fields("DataAtualizacao").Value & "</i></font><br>"

	' CONTADOR CONTA UM (HOME)
	CodigoContarHome = 1+0
	ContaHome = rsHome.Fields("Contador").Value+0+1
	conn.Execute "UPDATE Home SET Contador ="& ContaHome &" WHERE Codigo ="& CodigoHome &" "
	
	End if
	rsHome.close
	Set rsHome = Nothing
	' ========================= HOME FIM ==============================================
%>

	
	<!-- ENDEREÇOS INICIO

		<table width="220" cellpadding="4" cellspacing="2" border="0" class="bordatabela">
		  <tr>
			<td height="18" align="left" valign="middle" bgcolor="#ffffff">
			<font class="titulogr">
			  Endereços das IPDA
			</font>
			</td>
		  </tr>
		  <tr>
		  <form action="n_enderecos.asp" method="post" name="Form">
			<td align="left" valign="top" bgcolor="#ffffff">
			
			<IMG SRC="n_imagens/n_icones/ico_lupa2.gif" WIDTH="50" HEIGHT="50" BORDER="0" ALIGN="left" HSPACE="2" VSPACE="0"><font class="texto">Descubra o endereço da Igreja Deus é Amor mais próxima de você. Faça uma pesquisa em nossa base de dados on-line:</font><br><br>

			<div align="right">
			<font class="texto">Cidade:</font> <input type="text" name="" value="" size="14" maxlength="" class="cxtexto"><br>
			<input type="image" name="" src="n_imagens/botao_pesquisar.gif">
			</div>

			<a href="n_enderecos.asp" class="linkpeq">Pesquisa avançada...</a>

			</font>
			</td>
		  </form>
		  </tr>
		</table><br>
		
		ENDEREÇOS FIM -->		


	</td>
  </tr>
</table>

</center>

<% PaginaPrincipal = "Sim" %><!--#INCLUDE FILE="n_rodape.asp"-->

 

Please alguém poderia me ajudar o mais rápido possivél

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta a linha 12... a linha do erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao encontrei a parte do erro neste seu codigo

 

destaque para gente

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