Ir para conteúdo

POWERED BY:

Arquivado

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

serpaulo

Nao acho o erro

Por , em ASP Clássico

Recommended Posts

serpaulo    0

serpaulo
Postado

E ai Galera vejam se podem me ajudar!!!!!

 

 

Tenho um codigo que envia cartoes virtuais. o problema é que esta mandando o email pra pessoa com o link somente com o codigo aleatorio do cartao e nao com o codigo do cartao.

 

 

Quando a pessoa clica no link para abrir o cartao, abre com erro.

 

Tentei dar uma olhada e no documento ver.asp que visualiza o email esta com erro na linha 9 onde esta a sql.

 

 

Veja se podem me ajudar por favor.

 

 

Codigo da pagina que envia o cartao

 

salvar.asp

 

<%

 

Randomize

cod = int((9000000 * RND)+1)

 

................

 

Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a>

 

Codigo Ver.asp

 

<%

id = request("id")

cod = request("cod")

 

Set ver = Server.CreateObject("ADODB.Recordset")

sql = "Select * from enviados INNER JOIN fontes on (fontes.id = enviados.fonte) where enviados.id="&id&" and enviados.cod="&cod

ver.open sql, conex, 1,1

 

if ver.eof then

response.Write("<body bgcolor='666666'><script>alert('O cartão não foi encontrado!')</script><meta http-equiv='refresh' content='0;URL=default.asp'></body>")

else

%>

..............

 

<a href="index.asp?nome=<%=ver("enviados.nome")%>&de_email=<%=ver("de_email")%>&_para=<%=ver("para")%>&_para_email=<%=ver("para_email")%>"><img src="imagens/botao_reponder.gif" width="95" height="20" border="0"></a> <br>

<br>

</div></td>

</tr>

</table>

<%end if%>

 

 

Valeu mesmo gente http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Cara, não entendi direito oq você quis dizer aqui:

Tenho um codigo que envia cartoes virtuais. o problema é que esta mandando o email pra pessoa com o link somente com o codigo aleatorio do cartao e nao com o codigo do cartao.

me explica melhor o problema q te ajudo a resolver.

Compartilhar este post

Link para o post
Compartilhar em outros sites

serpaulo    0

serpaulo
Postado

E ai valeu pela forca..... Seguinte deixa eu tentar explicar

 

Tem uma area de envio de cartoes virtuais na pagina

 

A pagina que envia o cartao se chama salvar.asp

 

e o codigo que monta o link para a pessoa visualizar é esse

 

Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a>

 

Esse codigo esta dentro do codigo do cdonts, normal, so que quando a pessoa recebe o link no email o link vem assim

 

cartoes/ver.asp?id=&cod=5438475

 

Note que nao esta vindo no link o id que liga o cartao ao correspondente no banco, so esta vindo o codigo aleatorio.

 

E quando a pessoa clica no link, chama a pagina ver.asp que é onde a pessoa visualiza o cartao que recebeu e nesta pagina retorna esse erro.

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

 

ODBC driver does not support the requested properties.

 

/cartoes/ver.asp, line 9

 

 

Valeu pela forca e ate +

 

Paulo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que tem na linah 9 ???e qual o seu DB ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Amigo, o erro está aqui: salvar("id")Oque seria esse salvar ? algum recordset q fazia busca numa select ? por algum motivo ela está retornando vazio.... faz uns testes, eu acho q o nome "salvar" está errado, ou a select está incorreta[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

serpaulo    0

serpaulo
Postado

Valeu mesmo pela ajuda galera

 

O meu banco é access

 

Set ver = Server.CreateObject("ADODB.Recordset")

sql = "Select * from enviados INNER JOIN fontes on (fontes.id = enviados.fonte) where enviados.id="&id&" and enviados.cod="&cod

ver.open sql, conex, 1,1 --------->>>>>> Linha 09

 

Essa é a sql que estou usando.

 

*********************************************************

 

Aqui tem o "salvar" que o codigo esta usando para gravar os dados no banco, mas como é autonum do access ele nao esta no insert.

 

Acredito que o erro possa mesmo estar ai, mas nao estou encontrando o que pode estar errado.

 

if session("envia") = true then

Set salvar = Server.CreateObject("ADODB.Recordset")

sql = "Select * from enviados"

salvar.open sql, conex, 3,3

salvar.addnew

salvar("cod") = cod

salvar("nome") = nome

salvar("de_email") = de_email

salvar("para") = para

salvar("para_email") = para_email

salvar("assunto") = assunto

salvar("mensagem") = mensagem

salvar("data") = date

salvar("musica") = musica

salvar("img") = img

salvar("fonte") = fonte

salvar("tamanho") = tamanho

salvar.update

 

 

valeu gente

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Ok Colega...Sua SQL o Recorset salvar está errada.Troque isso

sql = "Select * from enviados"salvar.open sql, conex, 3,3

Por Isso

salvar.open "enviados", conex, 1,3,2

Se você fechar este recordset guarde o valor do AUTO-incremente em uma variaveltipo assim

salvar.UpdateMeuID = Salvar("id")salvar.CloseSet Salvar = nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

serpaulo    0

serpaulo
Postado

Fala galera o cartao deu certo uhuuuu animal!!!!!!Seis sao muito fera!!!!!!!!!!!!!!!!!Valeu mesmo, to estudando por conta e um dia eu chego lá !!!!!!!te a proximaPaulo Sergio

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