Conteúdo de pedro lopes - Página 2

Mandar Informaçoes De Um Bd Por E-mail

pergunta respondeu ao pedro lopes de pedro lopes em ASP

Mandar Informaçoes De Um Bd Por E-mail

pergunta respondeu ao pedro lopes de pedro lopes em ASP

o codigo completo e este ; este se chama modalidade.asp. eo outro do form e default.asp <% Dim strTo, stRSubject,strBody Dim objCDOMail Dim strID strTo = Request.Form("to") stRSubject = "Sistema de Inscricao de modalidades FUCE" 'Assunto da mensagem strBody = "Obrigado pela sua inscricao " 'corpo da minha mensagem strBody = strBody & "Este e-mail está sendo enviado para confirmação de sua inscrição." strBody = strBody & "A Partir de agora seus dados estarão em nosso banco de dados; não ESQUECA DE IR A FUCE CONFIRMAR SUA INSCRICAO " strBody = strBody & "Dúvidas ou sugestões: fuce@fuce.esp.br" strBody = strBody & " visite constantemente nossa página http://www.fuce.esp.br" strBody = strBody & "<a href=http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO="&RS("REGISTRO")&">link</a>" ' este ta dando erro... ' Espaços e enteRS strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Data da Inscrição : " strBody = strBody & Request.Form("DatadaInscricao") strBody = strBody & vbCrLf strBody = strBody & "Instituioçaõ de Ensino Superior: " strBody = strBody & Request.Form("IES") strBody = strBody & vbCrLf strBody = strBody & "Evento : " strBody = strBody & Request.Form("Evento") strBody = strBody & vbCrLf strBody = strBody & "Responsavel pela Inscrição : " strBody = strBody & Request.Form("Responsavel") Dim conn Dim RS StrConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../../../dados/inscricaodemodalidades.mdb") Set Conn = server.createobject("adodb.connection") Conn.Open StrConn Set RS = server.createobject("adodb.recordset") RS.open "tblcadastra", conn, 2, 3 'abrindo a tabela tblcadastra para a inserção ADO RS.addnew RS("IES") = request("IES") RS("CadastroFuce") = request("CadastroFuce") RS("Email") = request("to") RS("DatadaInscricao") = request("DatadaInscricao") RS("Evento") = request("Evento") RS("Responsavel") = request("Responsavel") RS("Centro") = request("Centro") RS("modalidade1") = request("modalidade1") RS("modalidade2") = request("modalidade2") RS("modalidade3") = request("modalidade3") RS("modalidade4") = request("modalidade4") RS("modalidade5") = request("modalidade5") RS("modalidade6") = request("modalidade6") RS("modalidade7") = request("modalidade7") RS("modalidade8") = request("modalidade8") RS("modalidade9") = request("modalidade9") RS("modalidade10") = request("modalidade10") RS.update RS.movelast strID = RS("REGISTRO") RS.close Set RS=nothing 'Fechando os Recursos Set conn=nothing %>   </div> Confira os dados que foram cadastrados abaixo. Sua incrição so será Válida depois de confirmar o Pagamento de Inscrição de IES. Imprima e Leve-o a FUCE <table border="0" align="center" cellpadding="0" cellspacing="0" width="473"> <tr> <td width="471"> Registro no Evento N°:<%= strID %> IES : <% = request("IES") %> Cadastro da Fuce: <% = request("CadastroFuce") %> Centro: <% = request("Centro") %> Evento : <% = request("Evento") %> Data de Inscrição : <% = request("DatadaInscricao") %>   Responsável : <% = request("Responsavel") %> Modalidades <% = request("modalidade1") %> - <% = request("modalidade2") %> - <% = request("modalidade3") %> <% = request("modalidade4") %> - <% = request("modalidade5") %> - <% = request("modalidade6") %> - <% = request("modalidade7") %> - <% = request("modalidade8") %> - <% = request("modalidade9") %> <% = request("modalidade10") %> </td> </tr> </table> <% Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>" objCDOMail.To = strTo objCDOMail.Subject = stRSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing Response.Write "Mensagem enviada com sucesso para " & strTo & "!" %>

Mandar Informaçoes De Um Bd Por E-mail

pergunta respondeu ao pedro lopes de pedro lopes em ASP

Amigo não funcionou quando coloco na pagina ela sai o resultado em Branco não vem o restos dos dados e não me da nenhum tipo de erro. o que sera. já tentei de tudo inclusive este::: str_mensagememail = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""white"">" _ & "<center>Ativação de Cadastro</center> <a href=""http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO=<%=rs(""REGISTRO"")%>Ativar Cadastro</a>""" _ & "</body>" _ & "</html>" este da o seguinte erro::: Microsoft VBScript compilation error '800a0409' Unterminated string constant /eventos/modalidades/modalidade.asp, line 76 & "<center>Ativação de Cadastro</center> <a href=""http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO=<%=rs(""REGISTRO"") --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- por que sera que não consigo por favor alguém tem alguma solucao????????????????????????????????

Mandar Informaçoes De Um Bd Por E-mail

uma questão postou pedro lopes ASP

tenho um BD cadastro, quero que ele mande o endereco da pagina pro cadastrado poder imprimir depois la no seu e-mail como faco isso.... recebi algumas dicas mas te juro não sei como fazer ainda já quebrei a cabeca muitoooo me ajuden......... respost minha pra um companheiro que me deu a seguinte dica Ola Pedro, Estas informações estão gravaas em um BD ?? Né?? Se você gravou deve ter um ID e este ID é o do cadastro.... Então envia por e-mail o Link http://www.seusite.com.br/cadastrado.asp?id=25 na página cadastrado.asp você busca pelo ID e mostra os dados................ Mas se quiser enviar este dados por e-mail também dá, mas as imagens do site fica difícil se foram diferentes para cada cadastro... se forem tudo igual, como um fundo, monta em HTML e envia por e-mail com os dados vindo do BD.... Bem, eu faria enviando o Link.......... so que tem um problema , na hora de fazer o cadastro na barra de end. sai www.mausite.com.br/cadastro.asp. como faço pra ele ir direto mostrando a "ID" da cadastrado? eu uso um script de mandar e-mail eu uso uma sting pra direcionar o id stgid= RS="registro" '(como id cadastrado no BD) como faço pra ele ir por-email com o ID do cadastrado... que tipo de comando eu uso???? <% Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>" objCDOMail.To = strTo objCDOMail.Subject = stRSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing como posso fazer a aquisicao da pagina descrita acima?

Gravar Pagina No Server

uma questão respondeu pedro lopes em ASP

Amigo Obrigado pela dica , so que tem um problema , na hora de fazer o cadastro na barra de end. sai www.mausite.com.br/cadastro.asp. como faço pra ele ir direto mostrando a "ID" da cadastrado? eu uso um script de mandar e-mail eu uso uma sting pra direcionar o id stgid= RS="registro" '(como id cadastrado no BD) como faço pra ele ir por-email com o ID do cadastrado... que tipo de comando eu uso???? <% Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>" objCDOMail.To = strTo objCDOMail.Subject = stRSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing como posso fazer a aquisicao da pagina descrita acima?

Entrar

pedro lopes

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Tudo que pedro lopes postou

Mandar Informaçoes De Um Bd Por E-mail

Mandar Informaçoes De Um Bd Por E-mail

Mandar Informaçoes De Um Bd Por E-mail

Mandar Informaçoes De Um Bd Por E-mail

Gravar Pagina No Server

Navegação

Atividades