Ir para conteúdo

POWERED BY:

Arquivado

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

leonblackjack

Problema em site

Por , em ASP Clássico

Recommended Posts

leonblackjack    0

leonblackjack
Postado

Boas pessoal tou com um grave problema e nao consigo resolver.. o site onde fazo manutenção estava a funcionar normalmente quando a parte da adminstração onde fazo os orçamentos da empresa deixou de funcionar e aparece o seguinte erro

Microsoft VBScript runtime error '800a005e'

 

Invalid use of Null: 'replace'

 

/select_registo_encomendas.asp, line 246

 

'ssql = "select * from v_encomendas where id_utilizador = "& id_utilizador

set rs = Server.CreateObject("ADODB.recordset")
rs.open sSQL, conn

'response.write ssql
response.Write "<tr>   "

soma = 0

while not rs.eof 

(linha246 onde da erro) response.write "<td height='94'><div align='left'><a class='areadetexto'><div align='left'><a href=javascript:GoCarrinho6(" & rs("id_Artigo") & ",'" & replace(rs("referencia")," ","§") & "'," & rs("preco") &")><div align='rigth'><img border='0' width='60' height='60' align='left'  src='" & rs.fields("imagens") & "' border=0 onerror=Fix(this)></a>" 
response.write "<td align=LEFT>" & rs.fields("referencia") & "</td>"
response.write "<td align=LEFT>" & rs.fields("dimensoes") & "</td>"
response.write "<td align=LEFT class='areadetexto'>" & rs.fields("nome_artigo") & " </td>"
peço ajuda é muito importante obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Provavelmente rs("referencia") está fazio.

 

Armazene em uma variável e verifique antes de usar a função replace.

Compartilhar este post

Link para o post
Compartilhar em outros sites

leonblackjack    0

leonblackjack
Postado

ja verifiquei e nao me parece que seja o mais estranho é que sempre funcionou e agora deixou de dar.. envio o codigo completo pff resolvam meu problema..

 

<html>
<head>
<style type="text/css">
<!--
@import url(/topbrinca.css);
body {
	margin-top: 0px;
	margin-left: 0px;
	background-color: #FFFFFF;

	background-repeat: no-repeat;
}
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10px;
	
}
.back {
	background-image:    url(imagens/MenuBackground.gif);
	background-repeat: repeat;
}
a {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #999999;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
	color: #0099CC;
}
a:active {
	text-decoration: none;
}
-->
</style>

<script>

function GoCarrinho1(id)
{
	window.open('apagar_linha_encomenda.asp?id='+ id,'janela','width=500,height=500');
}

</script>

<script>

function GoCarrinho2(id_input,id_linha_encomenda,id_artigo)
{ 
    strInput = "document.getElementById('qtd" + id_input + "').value";
	qtd = eval(strInput);
	window.open('actualizar_linha_encomenda.asp?qtd=' + qtd + '&id_linha_encomenda='+ id_linha_encomenda + '&id_Artigo=' + id_artigo,'janela','width=800,height=800');
}

</script>



<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="topbrinca.css" rel="stylesheet" type="text/css">
</head>
<body>

<div align="center">
  <p> </p>
  <p><table width="995" border="0">
    <tr>
      <td width="187" valign="top"><img src="imagens/LOGO_A3.jpg" width="187" height="104" align="middle" /></td>
      <td width="600" align="left" valign="bottom"  class="imagemdearea"><br />
        <br />
      <img src="imagens/EDUCACAO_E_LAZER.jpg" width="474" height="73" /><br /></td>
    </tr>
    <tr>
      <td colspan="2" align="center" class="areadetexto">Rua dos Bombeiros Voluntários, nº 2 A - 2675-303 Odivelas; NIF - 504 600 915; Tel: 219 312 059<br />
        Fax: 214 927 762; Email - encomendas@topbrinca.com; www.topbrinca-online.com </td>
    </tr>
    <tr>
      <td colspan="2" align="center"><p class="pesquisaback3">MATRICULADA NA CONSERVATÓRIA DO REGISTO COMERCIAL DA AMADORA SOB: O Nº 11499 - CAPITAL SOCIAL: 5.985,57EURO. </p></td>
    </tr>
</table> </div>
<div align="center">  
  <table width="995" border="0"  cellpadding="0" cellspacing="0" class="partedetrasmenu">
<%



email=request.form("email")
qtd=request.QueryString("qtd")
id_utilizador = session("id_utilizador")

preco=request.QueryString("preco")
referencia = request.QueryString("referencia")
nome_artigo = request.QueryString("nome_artigo")
remover = request.QueryString("remover")
actualizar = request.QueryString("actualizar")
id_encomenda = request.Form("id_encomenda")
empresa = request.Form("empresa")
pessoaresponsavel = request.Form("pessoaresponsavel")
telemovel = request.Form("telemovel")
fax = request.Form("fax")
localdaentrega = request.Form("localdaentrega")
data_actual = now()

ConnString= "PROVIDER=SQLOLEDB;DATA SOURCE=CT1029;UID=xxxx;Pwd=xxxx;database=cxxx"
set conn= Server.CreateObject("ADODB.Connection")
conn.open ConnString


sSQL=" select * from t_encomenda WHERE id_encomenda="& id_encomenda
sSQL = sSQL & " order by id_encomenda"





set rs = Server.CreateObject("ADODB.recordset")
rs.open sSQL, conn

%>
<div align="left" class="texto1"><%  response.write "<a class='imagemdearea'>" &  rs.fields("data_inicio_encomenda") & "</a>"%> 
 Nº:  <%=id_encomenda%> <br></div><div align="right"> <% response.Write"<a class='areadetexto'>" & data_actual & "</a>"%></div>



<%


'response.write ssql
response.Write "<tr>"


while not rs.eof 
response.write "<tr><td align='center' colspan='9' rowspan='1'></td></tr>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>NOME COMPLETO :   <a class='areadetexto'>" & rs.fields("nome_completo") & "</a></td><BR>"
response.write "<td align=left colspan='4' rowspan='1' class='texto1'>NIF :   <a class='areadetexto'>" & rs.fields("nif") & "</a></td>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>EMPRESA :   <a class='areadetexto'>" & rs.fields("empresa") & "</a></td>"
response.write "<td align=left colspan='4' rowspan='1' class='texto1'>TELEFONE :   <a class='areadetexto'>" & rs.fields("telefone") & "</a></td></td></td></tr>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>PESSOA RESPONSAVÉL :  <a class='areadetexto'> " & rs.fields("pessoaresponsavel") & "</a></td>"
response.write "<td align=left colspan='4' rowspan='1' class='texto1'>TELEMOVEL : <a class='areadetexto'>  " & rs.fields("telemovel") & "</a></td></td></td></tr>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>ENDEREÇO : <a class='areadetexto'>  " & rs.fields("endereco") & "</a></td>"
response.write "<td align=left colspan='4' rowspan='1' class='texto1'>FAX :  <a class='areadetexto'> " & rs.fields("fax") & "</a></td></td></td></tr>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>LOCALIDADE :  <a class='areadetexto'> " & rs.fields("localidade") & "</a></td>"
response.write "<td align=left colspan='4' rowspan='1' class='texto1'>EMAIL : <a class='areadetexto'>  " & rs.fields("email") & "</a></td></td></td></tr>"
response.write "<tr><td colspan='5' rowspan='1' class='texto1'>CODIGO POSTAL : <a class='areadetexto'>  " & rs.fields("codigo_postal") & "</a></td>"
response.write "<td align=left colspan='4' rowspan='1'class='texto1'>LOCAL DA ENTREGA :  <a class='areadetexto'> " & rs.fields("localdaentrega") & "</a></td>"

response.write "<tr><td align='center' colspan='9' rowspan='1' class='texto1'>_____________________________________________________________________________________________________</td></tr>"
response.write "<tr><td  colspan='9' rowspan='1' class='texto1'>Caro cliente, o pedido foi feito e encaminhado para os nossos serviços. Para qualquer esclarecimento, por favor não hesite em contactar-nos.</td></tr>"
response.write "<tr><td align='center' colspan='9' rowspan='1'>_</td></tr>"

 

if contador mod 1=0 then
response.Write"</tr><br></tr><br>"

end if

rs.MoveNext
wend
rs.close

response.Write"</tr></tr>"


set rs=nothing
set conn=nothing
%><br><br>
	 
	 
	 
	




 <tr>
	 <td  align="LEFT" class="areadetexto" ><div align="center">IMAGEM</div></td>
      <td width="123" align="LEFT" class="areadetexto" ><div align="center">REFERÊNCIA</div></td>
      <td width="120"  align="LEFT" class="areadetexto"><div align="center">DIMENSÕES</div></td>
      <td width="185"  align="LEFT" class="areadetexto"> <div align="center">NOME DO ARTIGO</div></td>
      <td width="40"  align="LEFT" class="areadetexto"><div align="center">QTD</div></td>
	  <td width="34"  align="LEFT" class="areadetexto"><div align="center">UN.</div></td>

      <td width="71" align="right" class="areadetexto"><div align="center">PREÇO <br> 
    S/I.V.A</div></td>
	  <td width="80"  align="right" class="areadetexto"><div align="center">I.V.A UN</div></td>
	  <td width="104"  align="right" class="areadetexto"><div align="center">PREÇO <br> 
    UN C/I.V.A</div></td>
	  <td width="68"  align="right" class="areadetexto"><div align="center">PREÇO</div></td>
   </tr>	  
  <%
dim sSQL,conn
dim id_utilizador
dim id_artigo
dim remover
dim actualizar
dim referencia
dim qtds
dim id_encomenda
dim email


email=request.form("email")

id_utilizador = session("id_utilizador")
qtds=request.QueryString("qtds")
preco=request.QueryString("preco")
referencia = request.QueryString("referencia")
nome_artigo = request.QueryString("nome_artigo")
remover = request.QueryString("remover")
actualizar = request.QueryString("actualizar")
id_encomenda = request.form("id_encomenda")

ConnString= "PROVIDER=SQLOLEDB;DATA SOURCE=CT1029;UID=topbrinca;Pwd=br94ca13;database=carrinho"
set conn= Server.CreateObject("ADODB.Connection")
conn.open ConnString

sSQL=" select * from v_encomendas WHERE id_encomenda="& id_encomenda
sSQL = sSQL & " order by referencia"




'sSQL="SELECT t_linha_encomenda.id_Artigo, t_linha_encomenda.id_linha_encomenda,t_linha_encomenda.nome_artigo,t_encomenda.id_utilizador,t_linha_encomenda.qtd,t_linha_encomenda.preco,t_linha_encomenda.referencia FROM t_linha_encomenda,t_encomenda"
'sSQL= sSQL & " where t_encomenda.id_encomenda =t_linha_encomenda.id_encomenda "
'response.write ssql
'sSQL= sSQL & " AND t_encomenda.id_utilizador = "& id_utilizador & " "
'ssql = "select * from v_encomendas where id_utilizador = "& id_utilizador

set rs = Server.CreateObject("ADODB.recordset")
rs.open sSQL, conn

'response.write ssql
response.Write "<tr>   "

soma = 0

while not rs.eof 

response.write "<td height='94'><div align='left'><a class='areadetexto'><div align='left'><a href=javascript:GoCarrinho6(" & rs("id_Artigo") & ",'" & replace(rs("referencia")," ","§") & "'," & rs("preco") &")><div align='rigth'><img border='0' width='60' height='60' align='left'  src='" & rs.fields("imagens") & "' border=0 onerror=Fix(this)></a>" 
response.write "<td align=LEFT>" & rs.fields("referencia") & "</td>"
response.write "<td align=LEFT>" & rs.fields("dimensoes") & "</td>"
response.write "<td align=LEFT class='areadetexto'>" & rs.fields("nome_artigo") & " </td>"

%><td align="center" width="52"><input name="qtds<%=contador%>" type="text" class="texto" id="qtds<%=contador%>" value="<%= rs.fields("qtds") %>" size="3" ></td>
<%
response.write "<td align='center'>" & rs.fields("unidadedevenda") & "</td>"
'response.write "<td align=center><a href=javascript:GoCarrinho1(" & rs.fields("id_linha_encomenda") & ")><img border='0' src='imagens/c.gif' border=0></a></td>" 
'response.write "<td align=center><a href=javascript:GoCarrinho2(" & contador & "," & rs.fields("id_linha_encomenda") & "," & rs("id_artigo") & ")><img border='0' src='imagens/r.gif' border=0></a></td>"
soma2 =(RS("preco")) / 1.2
n = round(soma2,4)
response.write  "<td align=RIGHT>" & FormatCurrency(n) & "</td>"

soma3 =(RS("preco")) / 1.2 * 0.2
n1 = round(soma3,4)
response.write  "<td align=RIGHT>" & FormatCurrency(n1) & "</td>"
response.write  "<td align=RIGHT>" & FormatCurrency(rs.fields("preco")) & "</td>"
soma1 =(RS("qtds") * RS("preco"))
response.write  "<td align=RIGHT>" & FormatCurrency(soma1) & "</td></tr>"

  '<%= FormatCurrency(RS_Pedido_Item("quantidade") * RS_Pedido_Item("preco_unitario"))
soma = soma + (RS("qtds") * RS("preco"))

soma2= soma / 1.2
soma3= soma / 1.2 * 0.2
id_encomenda = request.form("id_encomenda")
data_inicio_encomenda=request.QueryString("data_inicio_encomenda")
data_actual = now()
if contador mod 1=0 then
response.Write"</tr></td></tr></tr>"

end if

rs.MoveNext
wend
rs.close

response.Write"</tr></tr>"
If contador = 0 then
	Response.Write "<div align='center'></div>"
End if

set rs=nothing
set conn=nothing
%>
</table>
<div class="pesquisaback1">
  
  <form name="form1" method="post" action="">
    <label></label>
  </form>
  <table width="1003" border="1" cellpadding="2" cellspacing="0" bordercolor="#F3F3F3">
    <tr>
      <td width="843" bgcolor="#FFFFFF"><p align="right"><strong class="areadetexto">Total líquido-</strong></p>
          <p align="right"><strong class="areadetexto">Total de I.V.A- </strong></p>
        <p align="right"><strong class="areadetexto">TOTAL EUROS- </strong></p></td>
      <td width="127" bgcolor="#FFFFFF"><div align="right">
          <p class="areadetexto"><%=FormatCurrency(soma2)%></p>
        <p class="areadetexto"><%=FormatCurrency(soma3)%></p>
        <p><span class="areadetexto"><%=FormatCurrency(soma)%></span></p>
      </div></td>
    </tr>
  </table>
  <p> </p>
  <p>  </p>
 
<label></label>
</div>
<div align='center'>
  <label>
  <a href="#" onClick="window.print ()">
                <input name="button" type="submit" class="areadetexto" id="button" value="Imprimir documento" />
  </a>  </label>
</div>
<p align="center">
  <label></label>
</p>
<p align="center"><br>
  <span class="texto1">Observações:</span> <br>
  <textarea name="textarea" cols="120" rows="8"></textarea>
</p>
<p align="center" class="texto1">Prazo da entrega:<br>
  Até 60 dias após a adjudicação. Conforme o tipo de produto.</p>
<p align="center" class="texto1">Condições de pagamento:<br>
  Compras online, transferência Bancária. Após confirmação da entrega da Encomenda.. <br>
</p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p> </p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como disse, faça a verificação, que no caso é um validação, pois se a variável estiver vazia, não se pode usa-la no replace.

 

O erro aconteceu pq você está trabalhando com informações que vem do banco de dados. Isso iria acontecer mais cedo ou mais tarde.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Um exemplo:

Dim referenciav
referenciav = rs("referencia")

If (len(referenciav) > 0) Then
	referenciav = replace(referenciav," ","§")
End If

Response.Write referenciav

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