Ir para conteúdo

POWERED BY:

Arquivado

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

marcelinho

Alguem Pode Me r?

Por , em ASP Clássico

Recommended Posts

marcelinho    0

marcelinho
Postado

bom galera vou tentar ser o mais claro possivel se eu nao fui espero que me diga aonde eu nao fui claro!!!!

 

Eu estou fazendo um sistema de Cartão Virtual só que bem simples ele é assim:

 

eu tenho um banco de dados access com 2 tabelas nele

 

tbCartao com os campos:

 

id autonumeração

tema texto

Arquivo texto

 

e o outro é tbMensagens:

 

idcartao numero(NEM SEI PQ)

nome texto

nomedest texto

email texto

emaildest texto

mensagem memorando

sessionid texto(que tbm nao estou entendendo ele)

 

ai eu fiz 5 paginas so que uma ainda to sem idéia e nao consigo terminar. Sâo elas:

 

cadastrar.asp:

 

essa pagina é aonde o dono do sistema ira cadastrar os cartões dele, ele poe o tema e no arquivo que é um input type=file ele proucura o cartão e poe la..e envia!!

 

obrigado.asp:

 

essa pagina é a resposta que vai dar ao dono do sistema qdo ele cadastrar os cartões nessa pagina contém o upload onde esta descarregando numa pasta e o nome esta indo para o banco....e pro dono vai aparecer arquivo salvo!!

 

ate agora sussu...nessas 2 paginas tão funcionando blzera!!agora vem os pipino

 

principal.asp

 

essa página é o seguinte ela recebe as fotinhos que o dono do sistema cadastrou la no cadastrar.asp e junto nessa pagina vem as fotinhos ligadas a radio butons para o usuario clicar no cartao que ele quiser e embaixo tem para ele por nome,email,nome do destinatario,email do destinatario e mensagem.....ai tem um botao enviar que é para ele enviar o cartão para aparecer no email do cara que vai receber. Eu tbm estava tentando fazer uma pagina que era para o destinatario vizualizar o cartao qdo ele clicar no link que vai aparecer no email dele que era o AbrirCartao.asp mais ainda nem deu certo.

 

Enviar.asp

 

nessa pagina...estaria enviando as informações recuperadas do principal.asp atraves do CDONTS para o destinatario do cartao.........so que ai é o seguinte no email do destinatario teria que ter o link para ele clicar e ir direto na pagina do cartao para ele visualizar que é a pagina AbrirCartao.asp. Só que esta ai o problema não estou conseguindo fazer isso.

 

 

 

Se alguem puder me ajudar...estou desesperado e nao consigo terminar..se alguem quiser o codigo eu posto aqui!!!Obrigado a todos..desculpa alguma coisa!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

beleza...o código do Principal.asp:

 

<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><%'Leitura de variaveisnId = request.QueryString("idImagem")'Declara matriz Dim matCartao()'Seleciona dados da tabela  nSQL = "SELECT * FROM tbCartao ORDER BY arquivo"  Set rsD = Session("conn").Execute(nSQL)'Alimentação da matrizi=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%> <%for j=0 to i-1%> <%=matCartao(1,j)%> <input type="radio" name="cartao" value="Cartao"><img src="imagens\<%=matCartao(2,j)%>">     <%next%><br><br><br><form method="post" action="enviar.asp" onsubmit="return jValidaForm(this)">   <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>

 

e o do enviar.asp:

 

<%'Leitura de variaveisdim objMail,texto,matCartao() nNome = request.form("nome") nEmail = request.form("email") nNomedest = request.form("nomedest") nEmaildest = request.form("emaildest") nMensagem = request.form("mensagem") nCartao = request.form("cartao") nSessionID = session.sessionid   'Grava dados na tabela tbMensagem nSQL = "Insert into tbMensagens(nome,email,nome_dest,email_dest,mensagem) Values ('" & nNome & "','" & nEmail & "','" & nNomedest & "', '" & nEmaildest & "','" & nMensagem & "')" Session("conn").execute(nSQL)  'Select id, sessionid from tbMensagens where sessionid = '" & nSessionID & "' ORDER BY id DESC   nSQL = "Select id,sessionid from tbMensagens where sessionid = '" & nSessionID & "' ORDER BY id DESC"  set rsD = Session("conn").execute(nSQL)  'Joga ID dentro da variavel nID e SessionID dentro de nSessionID  'Alimentação da Matriz  i=0 while not rsD.eof    redim preserve matCartao(3,i)    matCartao(0,i) = rsD("idcartao")	matCartao(1,i) = rsD("sessionid")	matCartao(2,i) = rsD("id")	i = i+1	rsD.MoveNext	 wend	  'Mandando email pelo CDONTS Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = nEmail 'Seu E-mail objMail.To = nEmaildest 'E-mail que estara recebendo a mensagem objMail.Subject = nNome & " enviou um cartão para você" 'Assunto da mensagem objMail.BodyFormat = 0 'Este 0 indica que é texto HTML, 1 é para Texto comum objMail.MailFormat = 0 'Este 0 indica que é texto HTML, 1 é para Texto comum texto = "<html><body>"  texto = texto & nNome & "<p>enviou um cartão para você<p>"  texto = texto & "visualize-o pelo" texto = texto & "<a href=http://160.55.0.1/projeto/cartao/abrirCartao.asp?idmensagem=" & nID & "idcartao=" & nCartao & "&sessionid=" & nSessionID & ">link</a>" 'Texto para ser enviado ao destinatario, com link texto = texto & "</body></html>" objMail.Body = texto 'Texto do E-mail objMail.Send 'Responsavel por enviar a mensagem Set objMail = Nothing 'Desocupa o espaço que ele ocupa na memória response.write "Obrigado  <br>enviado com sucesso." %>

no enviar.asp esse cometario jaga id dentro da variavel nID é que eu nao sei...pq eueu to em duvida se é o ID da minha tabela tbCartao ou se eu vou ter que criar um id na tbMensagens.

 

 

e por ultimo o AbrirCartao.asp que eu ainda nao sei fazer!!

 

<%   'Seleciona dados da tabela  nSQL = "select * from tbMensagens where id = idmensagem and idcartao = idcartao and sessionid = nSessionid"  Set rsD = Session("conn").Execute(nSQL)%>

 

me ajude obrigadooo

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

Pelo que entendi você está com problemas de recuparar as variaveis através de um link no cartão.

 

você faz + ou - assim:

 

envia um link http://www.site.com.br/AbrirCartao.asp?id=...=numerodocartao

e por ai vai

 

na página AbrirCartao.asp você recupera as variaveis

 

id = request.Querystring("numerodaid")

cartao = request.Querystring("numerodocartao")

e por ai vai

 

depois você recupera essas variaveis no BD

 

nSQL = "select * from tbMensagens where id = idmensagem and idcartao = idcartao and sessionid = nSessionid"

Set rsD = Session("conn").Execute(nSQL)

 

monta a página e vualá.

 

Ajudou?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

Entao tr374 eu fiz mais ou menos...isso so o AbrirCartao.asp que ta dando meio errado....como assim remontar a pagina????

 

a pagina esta mais ou menos assim

 

<%dim matCartao()'Leitura de variaveis idmensagem = request.QueryString("idmensagem") nIdcartao = request.QueryString("idcartao") nSessionid = request.QueryString("sessionid")   'Seleciona dados da tabela  nSQL = "select * from tbMensagens where id = idmensagem and idcartao = nIdcartao and  sessionid = nSessionid"  Session("conn").Execute(nSQL)%>

so que eu acho que ele nao esta pegando o cartao...pq a imagem esta associada ao um radio button e eu tenho a leve impressao que nao esta pegando!!da uma olhada:

 

<%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%>

ta dificil viu...pq tipo o sistema esta funcionando qse inteiro..so falta esse lance do link manja...pq o resto ta sussu!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

estou falando da página AbrirCartao.asp

 

posta um exemplo de link (enviado) para eu ter uma idéia.

 

Testa se <%=idmensagem%> é = ao seu idmensagem que você está procurando idem idcartao

se estiver tudo bem até aqui seu problema é na SQL

(sessionid não entendi para q serve....)

 

nSQL = "select * from tbMensagens where id = idmensagem and idcartao = nIdcartao and sessionid = nSessionid"

 

tbCartao > id autonumeração:tema texto:Arquivo texto

tbMensagens > idcartao numero(NEM SEI PQ):nome texto:nomedest texto:email texto:emaildest texto:mensagem memorando:sessionid texto(que tbm nao estou entendendo ele)

 

PS. depois da SQL você terá que montar a página em html, asp, algo do tipo:

 

<html><body>

<p><img src="<%=Arquivo%>.gif"></p>

<p><%=tema%></p>

</body>

</html>

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