Ir para conteúdo

POWERED BY:

Arquivado

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

WRK_VLF

[Resolvido] Erro Microsoft VBScript runtime error '800a000d&#

Por , em ASP Clássico

Recommended Posts

WRK_VLF    0

WRK_VLF
Postado

Boa tarde galera

 

estou com um problema, quando vou finalziar um pedido ele aparece esse erro, mais mesmo assim envia o pedido ao BD. o que pode ser?

 

Gl�� de FᴩmaFerreira de Oliveira

Microsoft VBScript runtime error '800a000d'

 

Type mismatch

 

/loja/pagamento.asp, line 175

 

 

 

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

WRK_VLF    0

WRK_VLF
Postado

Boa tarde

 

 

Já quando vou vizualizar o pedido, da esse erro, veja bem o pedido aparece mais não tenho acesso a ele, e sempre são os primeiros registros, pois os mais antigos eu consigo abrir.

 

ADODB.Field error '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/loja/admin/pedidos2.asp, line 338

 

LINHA 338 

<td class="textopreto"><div align="left"><strong>Cliente: <%=(rsPedido.Fields.Item("Nome").Value)%> <%=(rsPedido.Fields.Item("Sobrenome").Value)%></strong></div></td>

 

 

Obrigado pessoal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Oi, verifique se as variáveis: VT, RS("PrecoVenda") e QT são numéricas, pois está dando erro nesta linha, e o comando é simples demais para poder ser algum problema mais sério.

 

Se elas não forem numéricas, você pode fazer assim:

VT = 0

VT = VT = RS("PrecoVenda") * QT

 

A variável QT seria bom você transformar em numérica também

 

Veja se funciona.

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

faça a verificação antes...

 

<% if (not rsPedido.eof) then %>
<td class="textopreto"><div align="left"><strong>Cliente: <%=(rsPedido.Fields.Item("Nome").Value)%> <%=(rsPedido.Fields.Item("Sobrenome").Value)%></strong></div></td>
<% end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

WRK_VLF    0

WRK_VLF
Postado

Olá amigo

Realmente começou a dar certo, só te peço mais uma dica, veja bem é são varios campos o que devo fazer faço a verificaçao para todos no começo e no fim de todos ou somento um para todos

 

de uma olhada esse é o form

 

<table width="100%" border="0" cellspacing="3" cellpadding="0">
			  <tr>
<% if (not rsPedido.eof) then %>
<td class="textopreto"><div align="left"><strong>Cliente: <%=(rsPedido.Fields.Item("Nome").Value)%> <%=(rsPedido.Fields.Item("Sobrenome").Value)%></strong></div></td><% end if %>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">CPF: <%=(rsPedido.Fields.Item("CPF").Value)%></div></td><% end if %> 
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">RG: <%=(rsPedido.Fields.Item("RG").Value)%></div></td><% end if %>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Data Nascimento: <%=(rsPedido.Fields.Item("DataNascimento").Value)%></div></td><% end if %>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Email:<%=(rsPedido.Fields.Item("Email").Value)%></div></td>
			  </tr>
			  <tr>
				<td><div align="left" class="textopreto">CEP: 
					<%CEP=(rsPedido.Fields.Item("CEP").Value)%>
				  <%=CEP%></div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Endereço: <%=(rsPedido.Fields.Item("Endereco").Value)%> - N°: <%=(rsPedido.Fields.Item("Numero").Value)%></div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Bairro:<%=(rsPedido.Fields.Item("Bairro").Value)%> </div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Cidade: <%=(rsPedido.Fields.Item("Cidade").Value)%> - Estado: <%=(rsPedido.Fields.Item("Estado").Value)%></div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Telefone 1:<%=(rsPedido.Fields.Item("Telefone1").Value)%></div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Telefone 2: <%=(rsPedido.Fields.Item("Telefone2").Value)%></div></td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">Referência: <%=(rsPedido.Fields.Item("Referencia").Value)%></div></td>
			  </tr>
			  
			  
			  <tr>
				<td> </td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left"><strong>Número Pedido: <%=(rsPedido.Fields.Item("NumeroPedido").Value)%></strong></div></td>
			  </tr>
			  <tr>
				<td><div align="left"><span class="textopreto">Data: <%=(rsPedido.Fields.Item("DataPedido").Value)%> - Status: 
				  <%vStatus=(rsPedido.Fields.Item("status").Value)%>
					<%
					  if vStatus = 0 then Response.Write("Compra Realizada") end if
					  if vStatus = 1 then Response.Write("Pagamento Confirmado") end if
					  if vStatus = 2 then Response.Write("Pedido enviado") end if
					  if vStatus = 3 then Response.Write("Pedido entregue") end if
					  if vStatus = 4 then Response.Write("Pedido CANCELADO") end if
				
				%>
				  </span>
				</div>
				  <form action="<%=MM_editAction%>" method="POST" name="form1" id="form1">
					<div align="left"><strong class="textopreto">					Alterar Status:																		  </strong>
						<select name="status" class="textopreto" id="status">
						  <option value="<%=vStatus%>">
							<%
					  if vStatus = 0 then Response.Write("Compra Realizada") end if
					  if vStatus = 1 then Response.Write("Pagamento Confirmado") end if
					  if vStatus = 2 then Response.Write("Pedido enviado") end if
					  if vStatus = 3 then Response.Write("Pedido entregue") end if
					  if vStatus = 4 then Response.Write("Pedido CANCELADO") end if
					  %>
							</option>
						  <option></option>
						  <option value="0">Compra Realizada</option>
						  <option value="1">Pagamento Confirmado</option>
						  <option value="2">Pedido enviado</option>
						  <option value="3">Pedido entregue</option>
						  <option value="4">Pedido CANCELADO</option>
						  </select>
						<span class="textopreto">
						  <input name="button" type="submit" class="textopreto" id="button" value="Alterar" />
						  <input type="hidden" name="MM_update" value="form1" />
						  <input type="hidden" name="MM_recordId" value="<%= rsPedido.Fields.Item("CC").Value %>" />
							</span>					  </div>
				  </form>				  </td>
			  </tr>
			  <tr>
				<td> </td>
			  </tr>
			  <tr>
				<td class="textopreto"><div align="left">IP: <%=(rsPedido.Fields.Item("IpPedido").Value)%>
					<%ValorTotal=(rsPedido.Fields.Item("VT").Value)%>
				</div></td>				  <% end if %>

			  </tr>
			  <tr>
				<td> </td>
			  </tr>
			  <tr>
				<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td colspan="2"><div align="left"><strong class="textopreto">Produtos</strong></div></td>
					<td width="20%"><div align="left"><strong class="textopreto">Quant.</strong></div></td>
					<td width="17%"><div align="left"><strong class="textopreto">Valor</strong></div></td>
					<td width="20%" class="textopreto"><div align="left"><strong>Valor Total</strong></div></td>
				  </tr>
<%
Dim PesoTotal 
PesoTotal = 0
While ((Repeat1__numRows <> 0) AND (NOT rsPedido.EOF)) 
%> 
				<tr>
				  <td colspan="2"> </td>
				  <td class="textopreto"> </td>
				  <td class="textopreto"> </td>
				  <td> </td>
				  </tr>
				<tr>

					<td width="37%"><div align="left" class="textopreto"><%=(rsPedido.Fields.Item("Descricao").Value)%></div></td>
					<td width="6%"> </td>
					<td class="textopreto"><div align="left"><%=(rsPedido.Fields.Item("Quantidade").Value)%> </div></td>
					<td class="textopreto"><div align="left"><%=FormatCurrency(rsPedido.Fields.Item("valor").Value)%></div></td>
					<td><div align="left" class="textopreto"><%=FormatCurrency(rsPedido.Fields.Item("ValortTotal").Value)%></div></td>
				</tr>					 
<% 
'PesoTotal = Replace((rsPedido.Fields.Item("peso").Value),",",".") + PesoTotal
PesoTotal = FormatNumber((rsPedido.Fields.Item("peso").Value),2) + PesoTotal
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsPedido.MoveNext()
Wend
%>
				  <tr>
					<td colspan="2"> </td>
					<td> </td>
					<td> </td>
					<td> </td>
				  </tr>
				  <tr>
					<td colspan="2"> </td>
					<td> </td>
					<td class="textopreto"><strong>Frete:</strong></td>
					<td class="textopreto">
					  <div align="left">
						<%

'Calculo FRETE

Dim URLCorreio, CEPOrigem, CEPDestino, Peso, xmlhttp, strRetorno, urlInteressante, arrLinha, arrRetornos
Dim TipoServico, Tarifa

CEPOrigem	= "27253-220"
CEPDestino	= CEP
Peso		= PesoTotal

For PesoCont=Peso to 1 Step -30
	if PesoCont >= 30 then
		PesoCEP = 30
	else if PesoCont < 30 then
		PesoCEP = PesoCont
		end if
	end if

	URLCorreio = "http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & CEPOrigem & "&cepDestino=" & CEPDestino & "&peso=" & PesoCEP
	
	Set xmlhttp = Server.CreateObject("Msxml2.serverXMLHTTP")
	
	Call xmlhttp.open("GET", URLCorreio, false)
	Call xmlhttp.send()
	strRetorno = xmlhttp.responseText
	
	urlInteressante = Mid(strRetorno, instr(1, strRetorno, "window.open") )
	urlInteressante = left(urlInteressante, instr(1, urlInteressante, "popUpTarifa") )
	
	arrRetornos = Split(urlInteressante, "&")
	
	for i=0 to Ubound(arrRetornos)
		arrLinha = Split(arrRetornos(i), "=")
		if instr(1, arrLinha(0), "Servico") Then  TipoServico = arrLinha(1)
		if arrLinha(0) = "Tarifa" Then Tarifa = Cdbl(Replace(arrLinha(1),".",","))
	Next
	TarifaTotal=TarifaTotal + Tarifa
Next
Response.Write FormatCurrency(TarifaTotal)
'Calculo FRETE					
					
					%>					
						</div></td>
				  </tr>
				  <tr>
					<td colspan="2"> </td>
					<td> </td>
					<td class="textolaranja"><div align="left"><strong>Total Compra:</strong></div></td>
					<td class="textolaranja"><div align="left"><%=FormatCurrency(ValorTotal)%></div></td>
				  </tr>
				</table></td>
			  </tr>
			  <tr>
				<td> </td>
			  </tr>
			  <tr>
				<td> </td>
			  </tr>
			</table>

mto obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Topicos duplicados mesclados

 

--------------------

 

Siga a orientacao do Ted e veja se resolve, senao poste aqui as novas falhas

Compartilhar este post

Link para o post
Compartilhar em outros sites

WRK_VLF    0

WRK_VLF
Postado

Ok,

 

eu segui as recomendações, a minha dúvida é o seguinte faço por ex fiz a verificação na linha de baixo ok? e fechei essa verificação, eu faço isso para cada campo? ou faço no começo e no final de todos que dou <% end if%>

 

Segue abaixo uma parte do código, para um melhor entendimento. esse está com o primeiro campo somente verificando.

 

 

table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<% if (not rsPedido.eof) then %>
<td class="textopreto"><div align="left"><strong>Cliente: <%=(rsPedido.Fields.Item("Nome").Value)%> <%=(rsPedido.Fields.Item("Sobrenome").Value)%></strong></div></td><% end if %>
</tr>
<tr>
<td class="textopreto"><div align="left">CPF: <%=(rsPedido.Fields.Item("CPF").Value)%></div></td>
</tr>
<tr>
<td class="textopreto"><div align="left">RG: <%=(rsPedido.Fields.Item("RG").Value)%></div></td>
</tr>
<tr>

 

obrigado a todos

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você deve fazer uma para cada recordSet. Então no caso acima, você fará apenas uma vez, pq cada campo está sendo acessado através do mesmo recordSet.

 

O End If deve ficar após a leitura de todos os campos relacionados ao recordSet rsPedido.

Compartilhar este post

Link para o post
Compartilhar em outros sites

WRK_VLF    0

WRK_VLF
Postado

Realmente deu certo, valeu mesmo pessoal pelas dicas!!!!

Mto obrigado

 

Abração a todos

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