Curry

Estou utilizando CDOSYS no servidor do Terra e ocorre o seguinte erro: CDO.Message.1 error '80040213' The transport failed to connect to the server. /artsluvas/utils.asp, line 51 >> sendmail.send SENDMAIL.ASP <!-- #include file="utils.asp" --> <% if request.querystring("snd")<> "" then MailArray="seguimento,empresa,cnpj_cpf,nome,telefone,fax,email,site,end,bairro,cep,cidade,uf" MailSubject="Contato pelo site - Cadastro" else end if if request.querystring("snd2")<> "" then MailArray="nome,empresa,email,telefone,mensagem" MailSubject="Cadastro pelo site - Atendimento" else end if vet=split(MailArray,",") strHtml="<table>" for a=0 to ubound(vet) strHTML = strHTML & "<tr><td><b>" & vet(a) & "</b></td><td>" & request.form(vet(a)) & "</td></tr>" next strHTML=strHTML & "</table>" SendMail mailCliente,mailTo,MailSubject,strHTML response.redirect("msg.asp?msg=Solicitação enviada") %> UTILS.ASP <% mailCliente = "zzzzz@zzz.com.br" mailing = "zzzz@zzz.com.br" Function rKeyGen(Digits) Dim i, j, UB Dim Temp Dim Poss(62) ' This is our array of possible characters j = 0 For i = 48 To 57 Poss(j) = Chr(i) j = j + 1 Next For i = 65 To 90 Poss(j) = Chr(i) j = j + 1 Next Temp = "" UB = 35 For i = 1 To Digits Randomize Temp = Temp & Poss(Int((UB - 0 + 1) * Rnd + 0)) Next rKeyGen = Temp End Function sub SendMail(mailFrom,mailTo,mailSubject,mailBody) Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.zzzzz.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = mailCliente objCDOSYSMail.To = mail objCDOSYSMail.Subject = mailSubject objCDOSYSMail.HtmlBody = strHTML objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end sub %> Procurei na net e diz que o email de envio tem que ser do próprio servidor, mas mesmo assim não deu certo...

O problema é que tenho vários sites no mesmo servidor, e um deles já utiliza a pasta adm da raiz... por isso o que está antes é importante...

tenho um script para redirecionar os endereços digitados no navegador para pastas: O primeiro case funciona, o segundo não. porque ?

Resolvido. Bastou apenas tirar o math. Pode fechar.

Preciso montar um random na cena 1 que mande abrir em frames específicos diferentes da cena 2 cada vez que o flash for carregado... Pensei no seguinte: não funciona porque o valor da variável x tá saindo indefinido. alguém poderia me ajudar a consertar ou melhorar esse código?

Eu tenho um sistema de busca no BD que abre uma página X com os resultados, e um link para abrir uma popup.. O que eu queria saber é se tem como em ASP eu colocar um link na popup que abra na tal página X que abre os resultados, ao invés de abrir uma janela ou aba nova...

Sim. isso está correto, ele carrega o texto na variável, mas na hora de jogar no banco ele só manda o titulo, o texto eu não sei se vai vazio ou o banco não reconhece... acho que o problema é ou com a textarea ou o fato do campo do banco ser memorando...

Como trabalhar corretamente com o Textarea em ASP ? O seguinte não manda o conteúdo do textarea pro banco: sql = "Insert into bdc (titulo,texto,desc) values ('"& xtit &"', '"& xtxt &"', '"& xdesc &"')" Sendo o texto no banco access um campo memorando (porque preciso de muito espaço para texto) E se já existe conteúdo no banco a pág editar não chama: <textarea name="cnt" cols="40" rows="6" class="txt" id="cnt"> <% if rsEd("texto") <> "" then response.write rsEd("texto") end if %></textarea>

Se utilizar a seguinte instrução sql SELECT TOP 5 * FROM news WHERE id = " & xJau & " ORDER BY id DESC eu vou puxar os cinco últimos registros do banco contando a partir do último registro como 1º ?

Eu montei um esquema para remover os registros do banco de dados e apagar as imgs correspondentes do servidor.. mas ele está somente deletando os registros e não apaga as ims que estão no ar: <% dim sqlDel, rsDel, xDel, xfed dim objFso, strPath xDel = request.querystring("jau") strPath = "../fotos/" sqlDel = " SELECT * FROM news WHERE id = " & xDel & "" call abre_conexao set rsDel = Conexao.execute(sqlDel) if rsDel.EOF then xfed = "Notícia não existente ou já excluída anteriormente." else sqlErs = " DELETE * FROM news WHERE id = " & xDel & "" if rsDel("img") <> "" then set objFso = CreateObject("Scripting.FileSystemObject") objFso.DeleteFile strPath & rsErs("img") ,true set objFso = nothing end if if rsDel("img2") <> "" then set objFso = CreateObject("Scripting.FileSystemObject") objFso.DeleteFile strPath & rsErs("img2") ,true set objFso = nothing end if if rsDel("img3") <> "" then set objFso = CreateObject("Scripting.FileSystemObject") objFso.DeleteFile strPath & rsErs("img3") ,true set objFso = nothing end if set rsErs = Conexao.execute(sqlErs) xfed = "Notícia excluída com sucesso !!" %>

Como disse, preciso fazer um link ir para a página catálogo.html, e dentro dela tem um iframe que eu queria já abrindo no produto certo que a pessoa viu no link... Não estou utilizando nenhuma linguagem dinâmica, mas se precisar eu aceito. Tem algum jeito de fazer isso em javascript ? se tiver por favor movam o meu tópico...

Pensei da seguinte forma: <% for each campo in rsInf.fields if campo.value = true then if campo.name = "cto" then (aqui eu teria que colcoar um comando para quebrar o loop antes de entrar esse campo que é o último) end if response.write "<option>" & UCase(campo.name) & "</option>" end if next %> Esse último campo é o último da tabela, e que eu não quero mostrar, como eu quebro o loop antes dele exibir este campo

Isso mesmo, JCMPJ, mas sem abusar, como eu excluo um dos campos que vai aparecer desta busca ??

Esse é o problema, eu queria pegar todos que tem valor TRUE. Tem como eu especificar somente buscar campos pelo valor deles ao invés de selecionar um campo como critério

Então onde você colocou a palavra "campo" eu substituo pelo que ?? Desculpe, mas não acompanhei teu raciocínio

Mas o que eu preciso é que todos os campos que sejam booleanos apareçam, não quero selecionar um campo que seja true, mas TODOS os campos que estiverem true para incluí-los no select....

Como posso crirar um select que chame apenas os campos da minha tabela que são sim/não ?? pensei mais ou menos assim: <% for each (criterio para selecionar os campos true/false) = true response.write "<option>" & (campo da tabela que está true) & "</option>" loop %> Estou no caminho certo ??

Eu só achei um BBCode muito simples, não tinha como fazer com botões ?? Eu precisava pelo menos de um exemplo com botões para seguir sozinho...

Obrigado, andreia_sp, procurei nos fóruns mas não no site...

Preciso montar uma página mais ou menos igual a esta do fórum (formatação de texto pelo menos) para enviar e-mails, mas em ASP. Alguém aí pode me dar uma orientação ou sabe aonde posso encontrar um ??

E se eu precisar comparar a um valor não nulo ??

Como faço para retornar resultados somente de registros onde um campo em especial está vazio ?? Ele costuma dar erro quando se procura assim: " SELECT * FROM tabela WHERE nome = "" ORDER BY id "

Tuas strings de condicional do varNN e varCC para aparecerem sozinhos estão iguais, não vai rolar nem um nem outro

Queria colocar um verificador para ver se certos campos estão preenchidos ou não... Pensei em colocar a função na hora q o sujeito clicar no enviar, mas aí como eu poderia proceder ?? Se eu colocar uma condição, como posso ordenar o submit a continuar a enviar os dados ???

Tenho um insert e gostaria de que o erro fosse expresso numa página configurada, pensei no seguinte sqlIns = " INSERT INTO tab (nome, email) VALUES (' " & varNome & " ','" & varMail & "') " rsIns = conexao.execute (sqlIns) aí se tiver erro faz assim " Ocorreu um erro. Foi " & rsIns.err Tem como ??