Ir para conteúdo
Fórum Script Brasil

vulmarjunior

Membros
  • Total de itens

    144
  • Registro em

  • Última visita

Tudo que vulmarjunior postou

  1. vulmarjunior

    Anexar Arquivo

    Valeu meu caro, estarei esperando. Grato Vulmar Junior
  2. vulmarjunior

    Anexar Arquivo

    alguém já fez um formulário de contato em asp e colocou um opção de anexar arquivos e enviar para o destinatário. Eu tenho mais ou menos uma idéia de como fazer, mas não tenho muita certeza, por isso se alguém já tiver feito e me puder me dizer como fazer ficaria grato. Uso tanto o Cdonts quanto o ASPmail. Valeu
  3. Valeu pela ajuda Jisa essa página ajuda a tirar muitas dúvidas. E obrigado por responder esse tópico.
  4. Olá, tenho um mscript do tipo "fale conosco" para envio de mensagens pelo site utilizando o componente CDONTS. Ele funciona beleza, mas eu gostaria de implementear algumas coisas. Uma delas é informar o nome do Remetente ao invés de somente seu email. Por exemplo no meu script tenho uma variável que captura o email do usuário sEmailFrom que depois será utilizada para informar o email da pessoa que me enviou a mensagem. objMail.From = sEmailFrom Esse script tambem gera uma auto-resposta e utlizará a mesma variável acima para enviar o email para a pessoa. Na auto resposta passará a ser objMail.To = sEmailFrom Estive pesquisando e vi que com o componete ASPEmail dá pra fazer isso. Exemplo: Mail.FromName = "JcmSoft Software" Eu até poderia mudar para o AspEmail mas gostaria de saber se é possivel fazer a mesma coisa com o CDONTS.
  5. vulmarjunior

    Session Variables

    O código é o seguinte, é um código de autenticação de usuário <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/pontocom.asp" --> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="carregando.asp" MM_redirectLoginFailed="erro.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_pontocom_STRING MM_rsUser.Source = "SELECT login, senha" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Ele foi feito pelo dreamweaver mx. Não sou um expert em ASP mas consegui descobrir que a variável de seção MM_valUsername tem o seu valor retirado do formulário de Login. Só que eu quero declarar outras varáveis de seção, só que estas me retornariam dados do usário que estão presentes no Banco de Dados. A minha dúvida é como e onde delcarar essa variaveis e como faze-las retornar dados do banco de dados.
  6. O comando linha de tempo (time Line) foi retirado do dreamweaver MX 2004, e no lugar acrescentaram comando para manipulação de imagens, tipo croop, resize, ajuste de cor e etc...
  7. Olá. Estou com a seguinte dúvida: Quando crio um sistema de login através do dreamweaver MX ele cria automaticamente um Session Variable MM_Username. Gostaria de saber como acrecentar outras variáveis de seção no script login. Exatamente onde declará-las dentro do script. Ex: A vaiavel MM_Username armazena o username do usuário que está logado. Além disso queria outras variáveis que armazenasse outros dados que estão presentes no Banco de Dados.
  8. vulmarjunior

    Intranet

    Sem querer te desistimular em relação ao PWS, mas até onde sei ele não é recomendavel para uso profissional, só para testes. Primeiro porque ele tem uma série de limitações e segundo por que se não me engano ele só suporta 10 conecções simultâneas. Se você quer montar uma intranet sem limitações, dá um jeito de atualizar para um sistema operacional da família NT (2000, XP) e usa o IIS. Ai você vai poder ter tudo que quiser na sua intranet.
  9. Estou tentando configurar esse arquivo para usar o bd em access, já indiquei o caminho certinho do bd mas sempre aparece esse erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /pontocom/helpdesk/www/settings.asp, line 27 3 - Access Database (set AccessPath) Não cosegui decifrar esse enigma.... tai o codigo pra você darem uma olhada <script LANGUAGE = "VBScript" RUNAT="Server"> ' Liberum Help Desk, Copyright © 2000 Doug Luxem ' Liberum Help Desk comes with ABSOLUTELY NO WARRANTY ' Please veiw the license.html file for the full GNU ' General Public License ' -------- ' SETTINGS.ASP ' ' Loads the appplication variables. ' -------- ' SetAppVariables: ' The procedure runs when the application is started or the file is changed ' Primary ojbectives are to set variables/constants used throughout the ' application. Sub SetAppVariables '======================================== ' Database Information ' Database Type ' 1 - SQL Server with SQL security (set SQLUser/SQLPass) ' 2 - SQL Server with integrated security 3 - Access Database (set AccessPath) '4 - DSN (An ODBC DataSource) (set DSN_Name) Application("DBType") = 3 '======================================== '============ SQL SETTINGS ============== Application("SQLServer") = "SQLSERVER" ' Server name (don't put the leading \\) Application("SQLDBase") = "HelpDesk" ' Database name Application("SQLUser") = "sa" ' Account to log into the SQL server with Application("SQLPass") = "sapass" ' Password for account ' ======================================= '=========== ACCESS SETTINGS ============ 'Physical path to database file Application("AccessPath") = "E:\Inetpub\dados\helpdesk2000.mdb" '======================================== '============= DSN SETTINGS ============= Application("DSN_Name") = "HelpDeskDSN" '======================================== ' Enable Debugging: ' Set to true to view full MS errors and other debug information ' printed. (This will disable most On Error Resume Next statements.) Application("Debug") = False End Sub </SCRIPT>
  10. alguém conheçe um bom sistema de Helpdesk. Pode ser pago. Estou precisnado de um para o site de uma empresa.
  11. Ae ninguém me respondeu mas eu já consegui a resposta, infelizmente em outro forum. Mas se alguém tiver a mesma dúvida segue o código <html> <head> <title>Fechar</title> <script> function fechar() { window.opener = window; window.close(); } setTimeout("java script:fechar();",5000); </script> </head> <body> onde o 5000 representa 5 segundos dai pode ser 4000 (4s) 8000(8s) e por ai vai....
  12. alguém tem um javascript que feche a página após alguns segundos?
  13. Tenho uma página de login que gostaria que ao invés de chamar uma página comum asp ou html chamasse uma ChromeslessWindow, o codigo pra chamr é essa Chromesless apartir de um link tem que conter isso na pag: <script src="pz_chromeless_2.1.js" id="chromeless"></script> <script language="JavaScript" type="text/JavaScript"> <!-- function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT, windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel, bCenter, sFontFamily, sFontSize, sFontColor){ openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT , windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel, bCenter, sFontFamily, sFontSize, sFontColor); } //--> </script> <a href="#" onClick="openChromeslessWindow('index.html','pontocom',800,600,null,null,'Pontocm - Solu&ccedil;&otilde;es em Inform&aacute;tica', '#000066', '#000099', '#FFFFFF', '#FFFFFF' ,true,'Arial, Helvetica, sans-serif', '1','#FFFFFF')">dfasdfasdf </a> Só que eu quero que essa função seja chamada apartir desse documento qando o login for bem sucedido: segue abaixo a pagina de login <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/conection.asp" --> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="clientes.asp" MM_redirectLoginFailed="erro.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_pontocom_STRING MM_rsUser.Source = "SELECT login, senha" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %>
  14. Na verdade eu posso usar o apache, já testei, mas é que o servidor é um win2000 e não querem que eu altere, então estou tentando instalar o php pra ter mais opções. Testei o que o post de cima falou mas não deu certo. alguém pode me dar uma dica de um possivel erro meu
  15. alguém sabe como fazer o IIS rodar PHP??? Eu segui passo a passo um tutoria do imasters mas não acertei. Se alguém puder conferir e ver se ele tá certinho agradeço.
  16. vulmarjunior

    Dica

    Cara depois de muito procurar encontrei esse livro Dreamweaver MX aplicações Dinâmicas da Macromedia Press que você pode comprar na altabooks.com.br ou na temporeal.com.br, tá saindo por R$ 72,00. Não vai te ensinar a montar uma loja online mas vai ensinar a usar baste ferramnteas dinâmicas do dreamweaver mx. É o único que encontrei que trata apenas de aplicativos dinâmicos, os demais sempre vão do básico ao médio. Fora ele talvez a bíblia do dreamweaver mx possa te ajudar. Valeu, espero que ajude.
  17. Bem vou tentar explicar como fiz. A maioria das páginas que faço em ASP, faço com auxílio do dreamweaver MX, sei que não é amelhor saida se querop aprender a programar em ASP, mas enquanto não domino tudo vou me virando como posso. A parte de inserir informações no BD fiz com auxilio do dreamweaver mx e a parte de enviar as mensagens utilizo um script que me forneceram. Pensei em fazer desse jeito. Abaixo tem o formulário de cadastramento que envia as informações para um bd chamado reserva.mdb. Esse código em asp é gerado pelo dreamweaver mx, ao inserir as informações no bd ele redireciona para uma página onde tem um script no topo que resgataria as informações do form e enviaria via email para mim. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="../Connections/con_pitagoras.asp" --> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_con_pitagoras_STRING MM_editTable = "reserva_de_vagas" MM_editRedirectUrl = "enviar_reserva.asp" MM_fieldsStr = "nome_aluno|value|nome_pai|value|cpf_pai|value|nome_mae|value|cpf_mae|value|endereco|value|bairro|value|cidade|value|estado|value|telefone|value|celular|value|serie|value|turno|value|email|value" MM_columnsStr = "nome_aluno|',none,''|nome_pai|',none,''|cpf_pai|',none,''|nome_mae|',none,''|cpf_mae|',none,''|endereco|',none,''|bairro|',none,''|cidade|',none,''|estado|',none,''|telefone|',none,''|celular|',none,''|serie|',none,''|turno|',none,''|email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <LINK href="../Style.css" rel="stylesheet" type="text/css"> <title>reserva</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="100">&nbsp;</td> </tr> <tr> <td height="483"> <TABLE width="100%" height="100%" border=0 cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD width="153" height="476" vAlign=top>&nbsp; </TD> <TD width="473" vAlign=top> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> </tr> <tr> <td><blockquote><strong><font color="#FF6600">RESERVAS DE VAGAS</font></strong></blockquote></td> </tr> <tr> <td><blockquote> <blockquote> <p>Para reservar a vaga de seu filho no col&eacute;gio Pit&aacute;goras por favor preencha o formul&aacute;rio abaixo e ap&oacute;s recebermos seu pedido entraremos em contato com voc&ecirc;.</p> </blockquote> </blockquote></td> </tr> <tr> <td> <form method="POST" action="<%=MM_editAction%>" name="form1"> <table width="299" align="center"> <tr valign="baseline"> <td width="131" align="right" nowrap>Nome do aluno:</td> <td width="209"> <input type="text" name="nome_aluno" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Nome do Ppai:</td> <td> <input type="text" name="nome_pai" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Cpf do pai:</td> <td> <input type="text" name="cpf_pai" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Nome da m&atilde;e:</td> <td> <input type="text" name="nome_mae" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Cpf da m&atilde;e:</td> <td> <input type="text" name="cpf_mae" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Endere&ccedil;o:</td> <td> <input type="text" name="endereco" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Bairro:</td> <td> <input type="text" name="bairro" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Cidade:</td> <td> <input type="text" name="cidade" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Estado:</td> <td> <input type="text" name="estado" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Telefone:</td> <td> <input type="text" name="telefone" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Celular:</td> <td> <input type="text" name="celular" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">S&eacute;rie:</td> <td> <input type="text" name="serie" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Turno:</td> <td> <input type="text" name="turno" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">Email:</td> <td> <input type="text" name="email" value="" size="32"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">&nbsp;</td> <td> <input type="submit" value="Enviar"> </td> </tr> </table> <input type="hidden" name="MM_insert" value="form1"> <input name="recipiente" type="hidden" id="recipiente" value="vulmarjunior@pitagoras-ro.com.br"> </form> <p>&nbsp;</p> <p>&nbsp;</p></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></TD> <TD vAlign=top width=143>&nbsp;</TD> </TR> </TBODY> </TABLE></td> </tr> </table> </body> </html> Script da página que enviaria as informações para mim <% 'Declarando variaveis Dim sNomeAluno, sNomePai, sCpfPai, sNomeMae, ScpfMae, sEndereco, SBairro, sCidade, sTelefone, sCelular, sSerie, sTurno, sEmail Dim objcemail,objMail Dim foi,enviar sNomeAluno = Request.Form("nome_aluno") sNomePai = Request.Form("nome_pai") sCpfPai = Request.Form("cpf_pai") sNomeMae = Request.Form("nome_mae") sCpfMae = Request.Form("cpf_mae") sEndereco = Request.Form("endereco") sBairro = Request.form("bairro") sCidade = Request.Form("cidade") sTelefone = Request.Form("telefone") sCelular = Request.Form("celular") sSerie = Request.Form("serie") sTurno = Request.Form("turno") sEmail = Request.Form("email") 'auto-resposta strMensagem = "[Essa é uma auto-reposta.]" & vbNewLine & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine strMensagem = strMensagem & "Mensagem" & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine strMensagem = strMensagem & "Mensagem" & vbNewLine 'criando objeto para autoresposta set objMail = server.createobject("CDONTS.NewMail") objMail.From = Request.Form("recipiente") objMail.To = sEmail objMail.Subject = "Re: Reserva de vaga" objMail.Body = strMensagem objMail.Importance = 1 objMail.Send set objMail = Nothing 'envia email para o webmaster strMensagem = "Segue abaixo os dados enviada pelo site para a Reserva de vaga" & vbNewLine & vbNewLine strMensagem = strMensagem & "Nome do Aluno: " & sNomeAluno & vbNewLine strMensagem = strMensagem & "Nome do Pai: " & sNomePai & vbNewLine strMensagem = strMensagem & "CPF do Pai: " & sCpfPai & vbNewLine strMensagem = strMensagem & "Nome da Mãe: " & sNomeMae & vbNewLine strMensagem = strMensagem & "CPF da mãe: " & sCpfMae & vbNewLine strMensagem = strMensagem & "Endereço: " & sEndereco & vbNewLine strMensagem = strMensagem & "Bairro: " & sBairro & vbNewLine strMensagem = strMensagem & "Cidade: " & sCidade & vbNewLine strMensagem = strMensagem & "Telefone: " & sTelefone & vbNewLine strMensagem = strMensagem & "Celular: " & sCelular & vbNewLine strMensagem = strMensagem & "Série: " & sSerie & vbNewLine strMensagem = strMensagem & "Turno: " & sTurno & vbNewLine strMensagem = strMensagem & "Email para contato: " & sEmail & vbNewLine 'criando objeto para enviar email para o webmaster set objMail = server.createobject("CDONTS.NewMail") objMail.From = sEmail objMail.To = Request.Form("recipiente") objMail.Subject = "Reserva de Vaga - Site Pitágoras-RO" objMail.Body = strMensagem objMail.Importance = 1 objMail.Send set objMail = Nothing response.redirect "../convidados/obrigado2.htm" % Na verdade não qual o erro pois aparantemente não aparece nenhum erro mas a mensagem não chega até mim. Espero poder ser ajudado
  18. Você configurou site no dw? Se configurou informou a pasta raiz dos arquivos no servidor teste? Verifique isso em site na aba advanced. E coloca o resultado ai pra gente verificar.
  19. vulmarjunior

    Validar Cpf

    como assim????? DEsculpe-me mas ainda sou novato em ASP e não compreendi como a forma como você explicou. Grato Vulmar Junior
  20. Estou com um pequeno problema. Tenho um sistema de cadastro que rmazena os dados inseridos em um formulário e os armazena em um bd access. Até tudo bem. Porém gostaria de que após serem armazenados os dados fossem enviados via email para mim. Fazer os dosi separados eu consigo mas juntos não estou acertando. Como deveria fazer.
  21. vulmarjunior

    Validar Cpf

    alguém tem um script em asp para validar cpf, pode ser em javascript também? grato Vulmar Junior
  22. Algúem sabe como gerar boletos bancário em ASP, ou tem algum código que gere esses boletos. Já ví alguns tutoriais mais não entendi muito bem se alguém puder me dar uma orientação. Grato Vulmar Junior
  23. Sim e como faço pra encontrar ouconseguir essas apostilas. Eu estou em Porto Velho/RO, num tenho previsão de ir a São Paulo tão cedo...
  24. Certo só que esses site só tem livros para nivel iniciante, e eu já tenho muitos livros para iniciante, eu quero algo mais avançado. Eu vi na amazon.com um guia de certificação com 300 questões semelhante as da prova, da macromedia press, será que alguma livraria vende ele no brasil, mesmo que seja em ingles? Mas valeu de novo
  25. o problema é que eu estou em Porto Velho - Rondônia mas valeu a força
×
×
  • Criar Novo...