Marcos-rj

550 Requested action not taken: mailbox unavailable (ex.: mailbox não encontrado, sem acesso) você esta usando offline? você esta usando: CC ou BCC ?

testa ai. <% Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = varEmails ' e-mail de quem esta enviando a mensagem Mailer.To = "c@hotmail.com" ' e-mail de quem vai receber a mensagem Mailer.CC = "" ' Com Cópia Mailer..BodyFormat = 0 Mailer..MailFormat = 0 Mailer.Subject = "Contato" Mailer.Body = varBody Mailer.Send Set Mailer = Nothing %>

<input type="image" name="botao" src="imagens/imagem.gif" />

olá raposo, posta ai como esta o código.

interessante, você tem um link ai?

não seria o link por e-mail?

tenta isso aqui, achei na net. não sei se funciona! A rotina é bastante simples. O exemplo a seguir procura as palavras "carro" e "rádio" em uma tabela que possui um campo denominado "DESCRICAO". Em primeiro lugar, vamos tratar os dados recebidos do formulário: 'Codifica os dados recebidos formatando os caracteres especiais, neste caso, 'o espaço é substituído pelo sinal (+) strProcura = Server.URLEncode(request("campo_do_formulario_postado")) 'Como nossa pesquisa será por "múltiplas palavras" (aqui você pode alterar ao seu gosto) 'é necessário trocar o sinal de (=) pelo (%) que é usado com o LIKE na string SQL strProcura = replace(strProcura,"+","%") Teremos com resultado: carro%radio Agora com a string de procura tratada, vamos criar o ARRAY que conterá as palavras para "comparação" com as encontradas. Veja que neste ponto não utilizaremos os sinais de (%), pois vamos procurar a palavra INTEIRA dentro do resultado vindo do Banco de Dados: 'Atribui o valor postado à variável string_procurada string_procurada = request("nome") 'Aqui colocamos "cada" palavra em uma posição do vetor. Veja que a função Split tem como parâmetros 'Split(string,separdor), onde o separador é o "espaço": "carro radio". Neste caso o VetorResultado conterá ' duas palavras: carro e radio VetorResultado = Split(string_procurada," ") Agora já está tudo pronto. Então vamos atribuir à variável "campo" o resultado do Recordset: campo = rstTemp.Fields.Item("DESCRICAO").Value A seguir, temos o laço For..Next que substitui o(s) valore(s) procurado(s) pelo(s) encontrado(s). Esse laço é o responsável pelas substituições. Nele é usada a função replace que tem como parâmetros: Replace(string_completa,palavra_procurada,palavra_substituida) For I = 0 to Ubound(VetorResultado) campo = REPLACE(campo, VetorResultado(I),"<b>" & ucase(VetorResultado(I)) & "</b>",1,1,1) Next Obs: 1,1,1 no Replace é para que a palavra substituída independente da formatação, pois o Replace é "Case Sensitive". Para mais informações, veja o detalhamento da função Replace no site da Microsoft®. Veja que o laço é necessário para efetuar a procura de "cada" palavra contida no ARRAY. Para isso usamos a função Ubound(parametro) que conta a quantidade de elementos contido no ARRAY ou VETOR. O funcionamento é simples, para cada passagem, a variável I é incrementada e a posição do ARRAY é lida. Note que o importante é atribuir a variável "campo" ao Replace para que possa ser feita a atribuição; vamos dizer "recursiva". Espero que esta pequena contribuição possa tirar a dúvida sobre as funções Replace() e Split(), e que o código acima possa ser útil em seus sistemas.

<% varNome = request.form("nome") if varNome = "" then response.redirect("data_atual.asp?erro=3") end if varFoneres = Request.Form("foneres") if varFoneres = "" then Response.Redirect("data_atual.asp?erro=17") end if varFoneCel= Request.Form("fonecel") varFoneCom= Request.Form("fonecom") varBody = varBody & "Nome: "&varNome& vbCrLf varBody = varBody & "Endereco: "&varEnder& vbCrLf varBody = varBody & "FoneRes: "&varFoneres& " Fone Cel:" &varFoneCel& " Fone Comercial:" &varFoneCom& vbCrLf Set ObjMail = Server.CreateObject("CDONTS.NewMail") ObjMail.to = "meue-mail@meue-mail.com.br" ObjMail.from = varEmails ObjMail.subject = "Contato" ObjMail.Importance = 1 ObjMail.BodyFormat = 0 ObjMail.MailFormat = 0 ObjMail.body = varBody ObjMail.send Set ObjMail = nothing %>

cdonts: Set ObjMail = Server.CreateObject("CDONTS.NewMail") ObjMail.to = "meue-mail@meue-mail.com.br" ObjMail.from = varEmails ObjMail.subject = "Contato" ObjMail.Importance = 1 ObjMail.BodyFormat = 0 ObjMail.MailFormat = 0 ObjMail.body = varBody ObjMail.send Set ObjMail = nothing

veja se a locaweb trabalha com o componente JMail. deve ser por isso que não funciona!

hum...esta validação você pode fazer assim: <% dim objConn dim SQL_sis Dim Valida Dim RS_sis Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=SQLOLEDB;Data Source=0.0.0.0;User ID=sa;Password=teste;Initial Catalog=teste" Valida_asp = request.form("Txtmult") SQL_sis = "select Aluno from Ly_curriculoaluno where Aluno='"&Valida_asp&"'" Set RS_sis = objConn.Execute(SQL_sis) IF RS_sis.eof or RS_sis.bof THEN response.write("<script>history.back(1);alert('LOGIN ERRADO!')</script>") else response.write("<script>location = 'default.asp';alert('SEJA BEM VINDO, LOGIN CERTO.')</script>") end if if not IsEmpty(objConn) then objConn.Close Set objConn = nothing %>

mexer nesses códigos do dreamweaver é brabo. é mais facil você fazer a mão.

hum... eu faço isso mas em páginas HTML usando o FSO. não sei se funcionaria no do cumento do word. com arquivo html eu faço assim: Set objFSO = CreateObject("Scripting.FileSystemObject") 'abro o arquivo "form_contato.htm" dentro da pasta mensagens Set objHTML = objFSO.OpenTextFile( server.MapPath("mensagens") & "\form_contato.htm", 1, True, 0) mensagem = objHTML.ReadAll response.clear mensagem = Replace(mensagem, "##data##", now) mensagem = Replace(mensagem, "##nome##", request("nome")) Set objHTML = Nothing Set objFSO = Nothing não sei se funciona com documento do word, faz um teste ai e ve se funciona. qualquer coisa posta ai.

você já tem uma função no onclick, e que adicionar + 1 , certo? onclick="javascript(validação para ver se o campo não está em branco e etc); alert('<%= Mensagem %>')"> é isso que você quer? tente ser mais especifico para podermos ajudar!

da uma olhada nesta matéria. http://www.imasters.com.br/artigo/4723/aja...ox_usando_ajax/

ve ai: ConnectionString = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=banco; UID=root; PWD="

pode ser que seja algum conflito. você consegue rodar outras páginas ASP sem conexao com banco de dados?

Tenta assim: <% sub AbreConexao set ConnString = Server.CreateObject("ADODB.Connection") ConnectionString = "Driver=MySQL ODBC 3.51 Driver;DATABASE=banco;SERVER=localhost;UID=;PASSWORD=;" ConnString.Open ConnectionString end sub sub FechaConexao ConnString.close set ConnString = nothing end sub %>

O que vem instalado é o cdosys. no servidor veja tem este componente instalado antes de contratar. muitos não tem. te indico o www.speedserv.com.br tem varios componentes instalados, espaço e tráfego muito bons também. e o melhor é que o suporte funciona!

...

Eu tenho um sistema deste. com base de dados em MDB. da uma conferida. www.deusprovedor.com.br fiz este site a muito tempo. estou ate fazendo alterações neste sistema da biblia. se quiser posso te mandar uma copia dele. a base de dados tem 9,58MB

Olha, mais um modelo desse sistema. http://sites.infomarcos.com:5053

entendeu o qque o bareta falou? o id é automático quando você faz um cadastro, para selecionar um registro você tem que passar o id do registro que você quer.

tenta este código do amigo lucas: http://scriptbrasil.com.br/forum/index.php?showtopic=99054

mas é tranquilo, eu uso Mysql com ASP numa boa!