Ir para conteúdo

POWERED BY:

Arquivado

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

Leonardo Djeri de Toledo

Asp+Mysql: Problemas na hora da consulta

Por , em ASP Clássico

Recommended Posts

Leonardo Djeri de Toledo    0

Leonardo Djeri de Toledo
Postado

Ola amigos.

 

Estou com um problema.

 

Tenho um banco de dados com as seguintes tabelas:

- cliente (Tabela onde recebe os dados de cadastro)

- fidelidade ( contem o campo EMAIL e PONTOS)

- pontos ( contem os campos PONTOS E PREMIO)

 

A página que estou fazendo é para consultar os pontos, uma especie de cartão fidelidade onde a pessoa gasta um determinado valor e esse valor será transformado em pontos. Essa pontuação será fornecida pelo sistema da loja e o banco de dados será alimentado no final do dia.

 

Por exemplo, eu fiz um cadastro agora, e essas informações foram para a tabela cliente. Porém, a tabela fidelidade que será responsavel pelo numero de pontos ainda não foi atualizada com essas informações do cadastro, pois só será atualizada no final do dia.

 

O que acontece é o seguinte:

 

Se eu me cadastrei agora, eu não tenho a pontuação disponivel para verificar. Mas, se eu fizer uma consulta, ele não vai localizar os meus dados da tabela fidelidade (EMAIL e PONTOS) e vai dar o seguinte erro:

 

error '80020009'

Exception occurred.

 

/test/logado.asp, line 24

 

O que eu queria fazer é: Quando a pessoa consultar e não existir dados nesses campos, que na tela apresentasse a mensagem: Não há pontos disponível neste momento. Tente novamente mais tarde.

 

Alguém pode me dar um help????

 

Segue abaixo a pagina da consulta de pontos:

 

<!-- #include file=config.asp --><%response.buffer = trueresponse.expires = 0response.cachecontrol = "private"session.timeout = 40session.LCID  = 1046Dim Premiodim PremioBasedim Valordim pontosstrConnection = "DSN=mysql; DB=xxxxxx_com_br; UID=xxxxxx; PWD=xxxxxSet adoDataConn = Server.CreateObject("ADODB.Connection")adoDataConn.Open strConnection' Faz uma consulta...set rsResult = adoDataConn.execute ("select * from fidelidade where Email like '" & Session("EMAIL") & "'")pontos = Cint(rsResult("Pontos")) Sub Localiza(Valor)set rsResult = adoDataConn.execute ("select * from pontos where pontos like " & valor & "")Premio =  rsResult("Premio")End SubCompara '<---- Chama sub rotinaSub Compara()if pontos => 100 and pontos =< 299 then	localiza 100	Exit Sub '<---se encontrar sai da sub rotinaend ifif pontos =>300 and pontos =< 399 then	 localiza 300	Exit SubEnd ifif pontos =>400 and pontos =< 699 then	 localiza 400		Exit SubEnd ifif pontos =>700 and pontos =< 999 then	 localiza 700		Exit SubEnd ifif pontos =>1000 and pontos =< 1199 then	 localiza 1000		Exit SubEnd ifif pontos =>1200 and pontos =< 1499 then	 localiza 1200		Exit SubEnd ifif pontos =>1500 and pontos =< 1999 then	 localiza 1500		Exit SubEnd ifif pontos =>2000 and pontos =< 4999 then	 localiza 2000		Exit SubEnd ifif pontos =>5000 and pontos =< 6799 then	 localiza 5000		Exit SubEnd ifif pontos =>7000 and pontos =< 11999 then	 localiza 7000			Exit SubEnd ifif pontos =>12000 and pontos =< 14999 then	 localiza 12000		Exit SubEnd ifif pontos =>15000 and pontos =< 16999 then	localiza 15000		Exit SubEnd ifif pontos >=17000 then	 localiza 17000		Exit Sub	ElsePremio =   "Você não tem pontos suficientes para trocar por prêmios" End ifEnd Sub%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title><%=config_titulo%></title><style type="text/css"><!--	a:link   {color="#000080";text-decoration:none}	a:active {color="#000080";text-decoration:none}	a:visited{color:"#000080";text-decoration:none}	a:hover  {color:"#008080";text-decoration:underline}--></style><link href="estilos.css" rel="stylesheet" type="text/css"><link rel="stylesheet" href="estilo.css" type="text/css"></head><body><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<th height="54" scope="col"><img src="topo.jpg" width="700" height="54"></th>  </tr>  <tr>	<th bgcolor="ececec" scope="col"><div align="center">	  <center>		<form action="logar.asp" method="post">		  <table width="690" height="245" border="0" cellpadding="0" cellspacing="1" bordercolorlight="#888860" bordercolordark="#888860">			<tr>			  <td height="49" colspan="2" bordercolor="#000000"><div align="center"></div></td>			</tr>			<tr>			  <td width="479" height="1" bordercolor="#000000"><table width="98%" height="143" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#F8F8F8">				<tr>				  <th scope="col"><table width="98%" height="216" border="0" cellpadding="2" cellspacing="2">					<tr>					  <th height="36" scope="col"><span class="style5"><span class="TextoCor">Olá</span><span class="TextoCorVerde"> <%=Session("NOME")%> </span></span></th>					</tr>					<tr>					  <th height="51" scope="row"> <span class="style5"><span class="TextoCor">Você tem</span> <span class="TextoCorVermelho"><span class="style1"><%=PONTOS%></span></span> </span><span class="TextoCor">pontos</span></th>					</tr>					<tr>					  <th height="39" scope="row"><span class="TextoCor">Você pode trocar seu pontos trocar por:</span></th>					</tr>					<tr>					  <th height="39" scope="row"><span class="TextoCorAzul"> <%=PREMIO%></span> </th>					</tr>					<tr>					  <th height="39" scope="row"><span class="style8"><a href="default.asp">Voltar</a></span></th>					</tr>				  </table></th>				</tr>			  </table>					<br></td>			  <td width="208" bordercolor="#000000"><div align="right"><img src="logo.jpg" width="200" height="193"></div></td>			</tr>		  </table>		</form>	  </center>	</div></th>  </tr>  <tr>	<th bgcolor="ececec" class="style8" scope="col"> </th>  </tr>  <tr>	<th bgcolor="ececec" scope="col"> </th>  </tr></table><%rsResult.closeadoDataConn.Close%></body></html>

Obrigado!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

troca a linha 

pontos = Cint(rsResult("Pontos"))

por essa...

if not rsResult.eof then
	pontos = Cint(rsResult("Pontos"))
else
	response.write "Não há pontos disponível neste momento. Tente novamente mais tarde."
end if

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