Ir para conteúdo

POWERED BY:

Arquivado

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

marcelinho

Alguem para me r??

Por , em ASP Clássico

Recommended Posts

marcelinho    0

marcelinho
Postado

E ai galera blzz????alguem tA a disposição de me ajudar a terminar esse projeto de cartao virtual...que eu estou com uns probleminha...eu posto as paginas aqui..se alguem tiver a disposição.....ajudem-me por favorobriigadoo

Compartilhar este post

Link para o post
Compartilhar em outros sites

angus    0

angus
Postado

eu ajudo, posta o código ae que vou tentar te ajudar mano... qual o problema?se tem que falar o problema pra gente tentar ajudar você... valeW!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

beleza vou por aqui os códigos: é um sistema de cartao virtual ele faz o seguinte tem as fotinhos e um radio button ligado as fotos e tem o formulario onde o usuario digita seu nome,email, nome destinatario,email do destinatario e mensagem. E um botao enviar que vai o email com o link para o destinatario o problema ta nesse link que eu nao consigo fazer.Vou postar os codigos,se alguem puder me ajudar

 

Principal.asp(nessa ta as fotos,o formulario e tals)

<html><head><title>Principal</title><script Language="JavaScript">function jValidaForm(form){              if (form.nome.value == "")            {                        alert("Atenção!\nO Campo NOME deve ser preenchido.");                        form.nome.focus();                        return false;            }            if (form.email.value == "")            {                        alert("Atenção!\nO Campo E-MAIL deve ser preenchido.");                        form.email.focus();                        return false;            }           if (form.nomedest.value == "")             {                                               alert("Atenção!\nO Campo Nome destinatario deve ser preenchido");                         form.nomedest.focus();                         return false;             }           if (form.emaildest.value == "")             {                  alert("Atenção!\nO Campo E-mail destinatario deve ser preenchido");                 form.emaildest.focus();                 return false;             }     if (form.mensagem.value == "")        {               alert("Atenção!\nO Campo Mensagem deve ser preenchido");      form.mensagem.focus();      return false;     }     }</script></head><%'Declara matriz**********ok Dim matCartao()'Seleciona dados da tabela***********ok  nSQL = "SELECT * FROM tbCartao ORDER BY arquivo"  Set rsD = Session("conn").Execute(nSQL)'Alimentação da matriz***************oki=0  while not rsD.eof    redim preserve matCartao(3,i)      matCartao(0,i) = rsD("id")      matCartao(1,i) = rsD("tema")      matCartao(2,i) = rsD("arquivo")      i=i+1      rsD.MoveNext  wend%><%'Estrutura de repetição***********ok%><form method="post" action="enviar.asp" onsubmit="return jValidaForm(this)"> <%for j=0 to i-1%> <%=matCartao(1,j)%> <input type="radio" name="cartao" value="<%=matCartao(2,j)%>"><img src="imagens\<%=matCartao(2,j)%>" name="cartao2">    <%next%><br><br><br>   <table width="75%" border="0" align="center">    <tr valign="top">       <td width="13%" align="left">Nome</td>      <td width="87%" align="left">         <input type=text size=48 maxlength=128 name=nome></td>    </tr>    <tr valign="top">       <td align="left">E-mail</td>      <td align="left">         <input type=text size=48 maxlength=128 name=email></td>    </tr>    <tr valign="top">       <td align="left">Nome Destinatario</td>      <td align="left">         <input type=text size=48 maxlength=128 name=nomedest></td>    </tr>    <tr valign="top">       <td align="left">Email Destinatario</td>      <td align="left">         <input type=text size=48 maxlength=128 name=emaildest></td>    </tr>    <tr valign="top">       <td align="left">Mensagem</td>      <td align="left">         <textarea name=mensagem></textarea></td>    </tr>    <tr valign="top">       <td align="right">         <input name="submit" type=submit value=Enviar>    </td>      <td align="left">         <input name="reset" type=reset value=Limpar>      </td>    </tr>  </table></form></body></html>
Enviar.asp(é onde envia o link...to enviando atraves do CDONTS)

 

<%'Leitura de variaveis***********okdim objMail,texto nNome = request.form("nome") nEmail = request.form("email") nNomedest = request.form("nomedest") nEmaildest = request.form("emaildest") nMensagem = request.form("mensagem") nCartao1 = request.form("cartao") nSessionId = session.SessionId  'Grava dados na tabela tbMensagens***********ok nSQL = "Insert into tbMensagens(nome,email,nome_dest,email_dest,mensagem,cartao) Values ('" & nNome & "','" & nEmail & "','" & nNomedest & "', '" & nEmaildest & "','" & nMensagem & "','" & nCartao1 & "')" Session("conn").execute(nSQL)  'Rodar um select na tabela mensagens e puxar os dados**********ok    nSQL = "Select * from tbMensagens where sessionid = '" & nSessionID & "' ORDER BY id DESC"  Set rsA = Session("conn").execute(nSQL)      if not rsA.eof and not rsA.bof then          nID = rsA("id")       nIDCartao = rsA("idcartao")       nNome1 = rsA("nome")       nEmail1 = rsA("email")       nNomeDest1 = rsA("nome_dest")       nEmailDest1 = rsA("email_dest")       nMensagem1 = rsA("mensagem")       nCartao = rsA("cartao")      end if	  'Joga ID dentro da variavel nID e SessionID dentro de nSessionID'Mandando email pelo CDONTS*************ok Set objMail = Server.CreateObject("CDONTS.NewMail")     objMail.From = nEmail 'Seu E-mail********ok     objMail.To = nEmaildest 'E-mail que estara recebendo a mensagem*************ok     objMail.Subject = nNome & " enviou um cartão para você" 'Assunto da mensagem**********ok     objMail.BodyFormat = 0 'Este 0 indica que é texto HTML, 1 é para Texto comum************ok     objMail.MailFormat = 0 'Este 0 indica que é texto HTML, 1 é para Texto comum***************ok     texto = "<html><body>"      texto = texto & nNome & "<p>enviou um cartão para você<p>"      texto = texto & "visualize-o pelo"     texto = texto & "<a href=http://192.168.0.1/projeto/cartao/AbrirCartao.asp?id= " & nID & " cartao= " & nCartao & " sessionid= " & nSessionId & ">link</a>" 'Texto para ser enviado ao destinatario, com link***probleminha     texto = texto & "</body></html>"     objMail.Body = texto 'Texto do E-mail************ok     objMail.Send 'Responsavel por enviar a mensagem**********ok Set objMail = Nothing 'Desocupa o espaço que ele ocupa na memória*********ok response.write "Obrigado  <br>enviado com sucesso." 'mensagem de obrigado ao usuário***************ok%>
AbrirCartao.asp(aqui é aonde iria abrir o cartao a hora que o destinatario clicasse no Link so que eu nao estou conseguindo fazer)

 

<%'Leitura de variaveis nID = request.QueryString("id") nIdCartao = request.QueryString("cartao") nSessionId = request.QueryString("sessionid")   'Seleciona dados da tabela    nSQL = "select * from tbMensagens where id = " & nID & " and cartao = " & nIdCartao & " and  sessionid = " & nSessionId & ""  Session("conn").Execute(nSQL)  nSQL = "Select * from tbCartao"  Set rsS = Session("conn").Execute(nSQL)    if not rsS.eof and not rsS.bof then    nID = rsS("id")	nTema = rsS("tema")	nArquivo = ("arquivo")  end if	    %><html><head><title>Cartão</title></head><body><p><%=nTema%></p><p><%=nArquivo%></p></body></html>

se alguem puder me ajudar valeuuu

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Faltou o separador & entre os parâmetros...

 

texto = texto & "<a href=http://192.168.0.1/projeto/cartao/AbrirCartao.asp?id= " & nID & " & cartao= " & nCartao & " & sessionid= " & nSessionId & ">link</a>" 'Texto para ser enviado ao destinatario, com link</a>

 

Testa aí... ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

WLJ valeu cara mais nem foi isso no email aparece assim ó:<http://192.168.0.1/projeto/cartao/AbrirCartao.asp?id=> ele nao esta aparecendo o resto pq a linha certa é assim:<a href=http://192.168.0.1/projeto/cartao/AbrirCartao.asp?id= " & nID & " & cartao= " & nCartao & " & sessionid= " & nSessionId & ">tipo nem sei pq isso acontece se você puder me ajudar ou outra pessoa vai ser mto bem vinda...e valeu mais uma vez WLJ

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cuidado com esses espaços quando você usa o "&" para mais valores na QueryString, normalmente o endereço é cortado no 1º espaço que aparece. Tente:

<a href=http://192.168.0.1/projeto/cartao/AbrirCartao.asp?id=" & nID & "&cartao=" & nCartao & "&sessionid=" & nSessionId & ">

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

ah eu tbm esqueci de dizer....mais nao sei pq que esta acontecendo isso ele nao esta pegando nem o id e nem o cartao pq sera??pq eu clico no cartao....e faço o formulario td certinho..dai ele envia bonitinho...ai qdo abro o email ta la o link...so que ele nao pegou nem o id e nem o cartaoalguem pode me ajudar?valeus ai

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