thicomp
-
Total de itens
180 -
Registro em
-
Última visita
Tudo que thicomp postou
-
O HTML está assim? <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Contatos - Via CDONTS</title></head> <body bgcolor="#FFFFFF"> <div align="center"> <form name="form1" action="Enviar_email.asp" method="post"> <p>Nome: <br> <input type="text" name="txtnome"> </p> <p>Email: <br> <input type="text" name="txtemail"> </p> <p>Comentário: <br> <textarea name="txtcomentario" cols="50" rows="10"></textarea> </p> <p> <input type="submit" name="Submit" value="Enviar"> </p> </form> </div> </body> </html> Esse é o código do "envio" Option Explicit Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody var_nome = Request.Form("txtnome") var_mail = Request.Form("txtemail") var_comentario = Request.Form("txtcomentario") var_to = "thiago@hotmail.com.br" Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = "Teste - Thiago" MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _ & "</body>" _ & "</html>" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.write "E-mail Enviado."
-
Ola pessoal, td bem?? Bem , estou com problemas no envio de email Estou utilizando o CDonts, ele faz o envio e as mensagens ficam armazenadas na pasta Queue e, após um tempo, elas são transferidas para a pasta Badmail. Clicando sobre o "Event Viewer" do servidor, ele me mostra a seguinte mensagem "Message delivery to the remote domain 'hotmail.com' failed. The error message is 'An SMTP protocol error occurred. '. The SMTP verb which caused the error is 'RCPT'. The response from the remote server is '550 5.7.1 Unable to relay for thiago@hotmail.com" Alguém teria alguma sugestão de como fazer para resolver esse problema?? Abçs
-
Vou tentar explicar melhor... Não é nem problema de código... O código busca informações inseridas em um txt para montar uma tabela de dados, como um banco de dados mesmo. Imagine a seguinte situação. Esta tabela será montada, buscando as informações inseridas em um único txt. Se o campo "Número de Participantes" tiver um valor numérico, ele será mostrado na tela normalmente. Se eu tiver um valor não numérico, como na tabela abaixo, esse campo me aparece em branco Código | Número de Participantes 001 2 002 N/D Veja se assim dá pra entender... qualquer coisa eu posto o código Eu acho que no meu caso, o que estou procurando no asp é algum comando que tenha a mesma função do parseInt ou parseString utilizado no Javascript. Não sei se existe isso no asp
-
Olá pessoal Tenho um código que recupera informações inseridas num txt e monta uma tabela. Acontece que quando ele lê um dos campos da tabela com número e o mesmo campo tiver, no seu valor uma letra ou algum sinal, este campo me mostra vazio. Alguém teria alguma sugestão para que isso pudesse ocorrer normalmente? Pensei em algum comando que deixe tanto letra como número com o mesmo tipo, mas não achei nada. Obrigado
-
Oi Pessoal, td bem??? Bem, estou com um problema num código de bloqueio. Na realidade, tenho um código em ASP, só que antes de ele ser executado, ele deve pedir uma confirmação ao usuário, caso ele aceite, o código é executado. O que está acontecendo é o seguinte: o usuário seleciona a opção desejada, se clicar em "SIM", o código é efetuado normalmente. Caso usuário clique em "Não", o código ASP (o qual deveria ser executado somente na opção "SIM") é executado, mas a página retorna 1 página (history.go(-1)). Alguém teria alguma sugestão?? <script language="JavaScript"> if(confirm('Você realmente deseja excluir este estudo?')){ <% 'meu código em ASP %> window.location = "pagina principal.html"; } else{ history.go(-1) } </script>
-
Pessoal, alguém podera me ajudar... Este código tem que fazer o seguinte: Em uma determinada pasta, tenho a separação por ano (pastas também), e dentro das pastas anos, as pastas referentes ao meu código do produto. Vale lembrar que a cada ano posso ter mais de um código. O código abaixo ele faz essa verficação, abrindo as pastas e imprimindo o conteudo na tela. O último "if" do código imprime na tela o link do ano, onde o usuário seleciona o ano desejado e automaticamente as informações daquele ano são disponibilizadas. O problema é o seguinte, não estou conseguindo que todos os links apareçam na tela. Não dá erro algum. Set fso = CreateObject("Scripting.FileSystemObject") 'LISTA DAS PASTAS ANO Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INSUMOS\") For Each x in folder.subfolders codint=x.Name 'LISTA DAS PASTAS DATA Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INSUMOS\"&codint&"\") For Each y in folder.subfolders codint1=y.Name Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INSUMOS\"&codint&"\"&codint1&"\"&session("sit")&"\") 'INSERIR CÓDIGO QUE LEIA SE A VARIÁVEL CODINT já TIVER CARREGADA, NÃO PERMITA QUE SEJA CARREGADA NOVAMENTE if fso.FileExists ("F:\Proj\"&session("proj")&"\INSUMOS\"&codint&"\"&codint1&"\"&session("sit")&"\"&codint1&".txt") = true then response.write "<a href='http://Proj/insumos/list.asp?proj="&session("proj")&"&ano="&codint&"&sit="&session("sit")&"')>["&codint&"]</a> " end if next next
-
Não sei o que está ocorrendo, mas ainda não consegui resolver Outra coisa estranha é que mesmo eu colocando um "response.write" com qualquer informação pro usuário, ele me retorna o mesmo erro, coisa que não era pra acontecer...
-
Oi Andreia, td bem?? Acabei esquecendo de colocar um trecho do código, que é o que esta dando trabalho. O problema é o seguinte, se eu executar o código como está disponível aqui, ele executa normalmente, agora se eu adiciono um código de retorno, como um "history.go()", em JavaScript ou um "response.redirect", em ASP, ele me retorna que a página não pode ser exibida. O código em JavaScript que estou utilizando <script language="JavaScript"> history.go(-3); </script>
-
Ola pessoal, td bem?? Não sei o que está acontecendo com este meu código, será que alguém saberia me ajudar. Ele faz o seguinte, abre um arquivo txt, grava as informações nele e move ele de pasta. O que está acontecendo é o seguinte, este código é executado normalmente, até o arquivo é movido de pasta, mas ao concluir, ele me retorna a mensagem de que a página não pode ser exibida. alguém teria alguma sugestão?? Abs <% Const forReading = 1, forWriting = 2, forAppending = 8 Dim objteste, objtextstream, Fso Set Fso = CreateObject("Scripting.FileSystemObject") Dim cr1:cr1=session("proj") Dim cr2:cr2=session("gloUsuario") Dim cr3:cr3=session("usuario") Dim cr4:cr4=replace(session("dat"),"_","/") Dim cr5:cr5=session("ccusto") Dim cr6:cr6=session("obs") Dim cr7:cr7=session("ano") Dim cr8:cr8= day(now)&"/"&month(now)&"/"&year(now) set objteste = createobject("scripting.FileSystemObject") Set objtextstream = objteste.OpenTextFile ("F:\Proj\"&session("proj")&"\"&session("ano")&"\"& session("dat") &"\and\"& session("dat") &".txt", ForWriting, TristateTrue) objtextstream.write("") objtextstream.writeline cr1 objtextstream.write("") objtextstream.writeline cr2 objtextstream.write("") objtextstream.writeline cr3 objtextstream.write("") objtextstream.writeline cr4 objtextstream.write("") objtextstream.writeline cr5 objtextstream.write("") objtextstream.writeline cr6 objtextstream.write("") objtextstream.writeline cr7 objtextstream.write("") objtextstream.writeline cr8 objtextstream.close objteste.MoveFile "F:\\Proj\"&session("proj")&"\"&session("ano")&"\"& session("dat") &"\and\"& session("dat") &".txt","F:\Proj\"&session("proj")&"\"&session("ano")&"\"& session("dat") &"\conc\" set objteste = nothing set Fso = nothing %>
-
Ola pessoal, td bem?? To com um probleminha nesse código, será que alguém poderia me ajudar... O problema está ocorrendo na parte em vermelho... Leitura de txt... Se eu retirar o "for" do código, em vermelho, o erro "800a0005" é retornado... alguém teria alguma sugestão? Abçs ASP <% session("sit")=request.querystring("sit") response.write "<style>a{text-decoration:none; font-family:verdana;font-size:10pt;}</style>" session("ano") = request.querystring("ano") Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INS\") 'Set files = folder.Files For Each x in folder.subfolders codint=x.Name response.write "<a href='http://Proj/ins/list.asp?proj="&session("proj")&"&ano="&codint&"&sit="&session("sit")&"')>["&codint&"]</a> " next Set Fso = nothing Set objStream = nothing Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INS\"&session("ano")&"\") 'Set files = folder.Files For Each x in folder.subfolders codint1=x.Name Set folder = fso.GetFolder ("F:\Proj\"&session("proj")&"\INS\"&session("ano")&"\"&codint1&"\"&session("sit")&"\") Set files = folder.Files For Each file in Files codint=len(file.Name)-4 cod=left(file.Name,10) response.write "<br><a href='http://Proj/ins/detalhes.asp?dat="&cod&"&ano="&session("ano")&"')>"&replace(cod,"_","/")&"</a> " Set ObjFile = Fso.GetFile("F:\Proj\INS\"&session("ano")&"\"&codint1&"\"&session("sit")&"\"&cod&".txt") Set objStream = ObjFile.OpenAsTextStream(forReading,false) Set files = folder.Files 'Set file = Nothing 'Set fso = Nothing Texto = ObjStream.ReadAll Dados = Split(Replace(Texto,Chr(13),""),Chr(10)) //substitui o enter pelo tab for x = 0 to UBound(Dados) if Dados(x) = "" then response.write "" else response.write "<td colspan=1>"& Dados (x) &"" end if if Dados (x) = "" then if cor = "#d2dfee" then cor = "#eef3f9" else cor = "#d2dfee" end if response.write "<tr bgcolor=" & cor & " height=35>" end if next objStream.Close 'Set Fso = nothing 'Set objStream = nothing next next Set Fso = nothing Set objStream = nothing %>
-
Não deu certo... Tentei utilizar o URLEncode, mas também não funcionou... Cara, valeu pela ajuda... Já consegui resolver o problema... Eu utilizei o "replace" nas duas páginas... Na primeira, eu altera o valor "+" para uma sequencia de caracteres. Na outra, faço o contrário... Aí funcionou legal Abçs e obrigado
-
Pessoal Alguém sabe como eu poderia resolver um probleminha Estou passando valores através de um link. O problema é que um dos valores possui o sinal de +, e na hora de mostrar na outra página, o sinal não aparece... Já tentei usar o "escape", mas mesmo assim não dá certo... Será que existe alguma forma de resolver esse problema??? Abçs
-
Coloca seu texto entre as tags <u> e </u>
-
Pessoal, alguém poderia me ajudar Estou com um problema de verificação de arquivo... Qd mando executar essa linha de código, sempre me retorna false... Já coloquei esse caminho dentro de um "href" e ele conseguiu encontrar o arquivo normal, mas se mando verificar, ele não o encontra... Alguém tem alguma sugestão Abçs fso.fileExists("http://rqp/det/"&request.querystring("ano")&"/"& arrAvatar(i) &"/"& arrAvatar(i) &".pdf") = true Ignorem este post... Viajei legal nele... hehehe Abçs
-
Oi Pessoal, veja se alguém poderia me ajudar... Estou com o problema na linha que está em vermelho Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument /asmf/visu.asp, line 61 Desde já, obrigado <% response.write "<center><br><br><table cellpadding='1' cellspacing='1' border='0' width='550'><tr><td align='center' colspan='4'><h3>Lista</h3>" response.write "<tr bgcolor='#4e7cb7' height='30'><td align='center'><font color='#ffffff'><b>Nome do Produto</b></font></td>" response.write "<td align='center'><font color='#ffffff'><b>Nº da Revisão</b></font></td><td align='center'><font color='#ffffff'><b>Data da Última Atualização</b></font></td><td align='center'><font color='#ffffff'><b>Atualizar</b></font></td>" 'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSO Dim iLoop, limite, pagina, totalarq, i Dim vlMaximo, vlMinimo, anterior Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta Dim usuario, cor Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjPasta = ObjFso.GetFolder(server.MapPath("/asmf/det/")) limite = 15 ' limite de registros por página totalarq = ObjPasta.files.count ' total de arquivos encontrados ReDim arrAvatar((totalarq-1)) Dim y y = 0 ' guardamos cada arquivo dentro de um array For Each ObjArq in ObjPasta.files arrAvatar(y) = objArq.Name y = y + 1 Next Set ObjPasta = Nothing Set ObjArq = Nothing Set ObjFso = Nothing pagina = Request("pag") IF pagina = "" Then IF limite < UBound(arrAvatar) Then vlMinimo = 0 vlMaximo = (limite-1) Else vlMinimo = LBound(arrAvatar) vlMaximo = UBound(arrAvatar) End IF pagina = 1 anterior = "" Else vlMinimo = (pagina*(limite-1))+(pagina) vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1) IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar) pagina = pagina + 1 anterior = pagina - 2 IF anterior = 0 Then anterior = "" End IF For i = vlMinimo to vlMaximo if cor= "#d2dfee" then: cor= "#eef3f9" else: cor= "#d2dfee": end if Set fso = CreateObject("Scripting.FileSystemObject") Set ObjFile = Fso.GetFile ("F:\asmf\det\"&arrAvatar(i)&"") [color="#FF0000"]Set objStream = ObjFile.OpenAsTextStream(forReading,false)[/color] Texto = ObjStream.ReadAll Dados= Split(Replace(Texto,Chr(13),""),Chr(10)) //substitui o enter pelo tab for x=0 to LBound(Dados) if cor = "#d2dfee" then cor = "#eef3f9" else cor ="#d2dfee" end if response.write "<tr bgcolor='"& cor & "'><td align='left'><a href='form.asp?nomprod="&dados(0)&"'>"&dados(0)&"</a>" response.write "<td align='center'>"& dados(1) &"" response.write "<td align='center'>"& dados(2) &"" response.write "<td align='center'><a href='abert.asp?nomprod="&dados(0)&"'><img src='../img/refresh.gif' width='15' border='0'>" next objStream.Close Set Fso = nothing Set objStream = nothing next if codigo = "" then : response.write "<tr height='50'><td align='center' colspan='8'><b>Nenhum Arquivo Em Andamento</b>" else : response.write "" : end if response.write "</table></center></body></html>" %>
-
E aí cara, vlw pela ajuda... Consegui resolver utilizando o refresh... Vlw pela ajuda
-
Oi Pessoal, estou com um probleminha aqui... Será que alguém já passou por isso?? Tenho uma página em ASP, onde tenho uma imagem e logo abaixo, um campo para Upload da mesma. Acontece que quando faço o upload de uma nova imagem, o usuário é retornado para a mesma página. O problema é que quando esta página é retornada, ela retorna com a imagem antiga, só depois de um refresh é que a imagem nova aparece... Já tentei usar o Response.expires = 0, mas não tive sucesso... Alguém teria alguma sugestão para a solução deste problema?? Abçs
-
Então, é justamente isso que o código está fazendo, o problema é que não estou conseguindo fazer com que o nome seja alterado... Abçs
-
Não é retornado erro algum na página, apenas aparece que a página não pode ser exibida... As permissões estão definidas certinho sim... Só mais uma coisa do que está acontecendo... Ele faz o envio do arquivo, acontece que ele envia o arquivo para a pasta definida por este caminho "F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"" (aqui deveria ser colocada a imagem atual, renomeada utilizando UCase) com a nomeação "& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &"" que deveria ser movida para a pasta "F:\Root\Proj\img\img_ant\" (aqui estaria os arquivos antigos, renomeados com este nome acima) Não sei se deu pra entender Pessoal, acabei descobrindo que o meu problema está nas linhas em vermelho... Alguém teria alguma sugestão pra me dar?? Abçs Set fileobject = fso.GetFile("F:\Root\Proj\"& session("proj") &"\SINT\"& session("prod")&"\"& name &"") 'Renomeia arquivo antigo fileobject.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &"" name1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &"" 'Move arquivo antigo para a pasta img_ant objteste.MoveFile "F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"","F:\Root\Proj\img\img_ant\" 'Renomeia arquivo atual com letras maiusculas e move para a pasta específica Set fileobject = fso.GetFile("F:\Root\Proj\img\img_ant\atual\"& name &"") fileobject.Name = UCase(name) name1 = UCase(name) objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\" else 'Renomeia arquivo atual com letras maiusculas e move para a pasta específica fileobject.Name = UCase(name) name1 = UCase(name) objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\"& name1 &"","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\" end if
-
Pessoal, alguém poderia me dar uma ajuda nesse código... Não consigo achar onde está o erro... Ele faz o Upload do arquivo, mas quando chega nesta parte do código, aparece que a página não pode ser exibida... Alguém teria alguma sugestão... Abçs if objteste.FileExists ("F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name &"") = true then Set fileobject = fso.GetFile("F:\Root\Proj\"& session("proj") &"\SINT\"& session("prod")&"\"& name &"") 'Renomeia arquivo antigo fileobject.Name = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &"" name1 = ""& day(now) &"_"& month(now) &"_"& year(now) &"_"& hour(now) &"_"& minute(now) &"_"& second(now) &"_"& name &"" 'Move arquivo antigo para a pasta img_ant objteste.MoveFile "F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\"& name1 &"","F:\Root\Proj\img\img_ant\" 'Renomeia arquivo atual com letras maiusculas e move para a pasta específica Set fileobject = fso.GetFile("F:\Root\Proj\img\img_ant\atual\"& name &"") fileobject.Name = UCase(name) name1 = UCase(name) objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\" else 'Renomeia arquivo atual com letras maiusculas e move para a pasta específica fileobject.Name = UCase(name) name1 = UCase(name) objteste.MoveFile "F:\Root\Proj\img\img_ant\atual\"& name1 &"","F:\Root\Proj\"& session("proj") &"\SINT\"&session("prod")&"\" end if
-
Veja cara, dá uma olhada no código <% Const forWriting=2, forAppending=8, forReading = 1 dim fso Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile "F:\Root\TEST_0001.pdf","F:\Root\temp\" if FSO.FileExists ("F:\Root\temp\TEST_0001.pdf") = true then %> <html><head> <script language="javascript"> function janelaSecundaria (URL){ window.open(URL,"janela1","width=800,height=600,top=100,left=100,scrollbars=yes") } janelaSecundaria("http://temp/TEST_0001.pdf"); </script></head> <% else 'Caso o arquivo não seja encontrado, limpamos o buffer e terminamos o programa. Response.Clear() Response.End End If FSO.DeleteFile "F:\Root\temp\TEST_0001.pdf" %>... Se eu deixar como está, ele apaga o arquivo e abre a popup sem conteudo...
-
Oi pessoal, fiz um código aqui mas estou com um probleminha... Veja se alguém teria alguma sugestão pra me ajudar... É o seguinte, o código é em asp e javascript. Ele pega um arquivo em uma pasta, copia este para uma pasta temporária pra que o usuario tenha acesso... Este arquivo será aberto em uma janela popup... Aí preciso que assim que o usuário terminar de ver esse documento, que ele seja apagado desta pasta temporária... Já fiz todas essas partes, o problema é que se eu deixar o código para deletar esse arquivo, o documento não será mostrado pra mim... Alguém teria alguma sugestão Obrigado Abçs
-
Pessoal, veja se alguém pode me ajudar... Paginação em ordem alfabética... Os dados ele pega em um arquivo txt <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = CreateObject("Scripting.FileSystemObject") Set Conn = Server.CreateObject("ADODB.Connection") ' Set the Dbq portion of the string to the physical folder where your price files reside Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=F:\Root\rel_P_D1;" & _ "Extensions=asc,csv,tab,txt;" & _ "Persist Security Info=false" pagina = Request.QueryString("pagatual") letra = Request.QueryString("letra") If letra = "" Then letra = "A" SQL = "Select * FROM produtos.txt WHERE nome LIKE 'A%' Order by produto ASC" Else SQL = "Select * FROM produtos.txt WHERE nome LIKE '"&letra&"%' Order by produto ASC" End If const pags = 15 'RS.pagesize = pags 'RS.cachesize = pags 'RS.absolutepage = 1 %> <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%letras = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"%> <%For i = 1 to 35%> <%="<a href=paginacao.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%> <%Next%> </td> </tr> <tr> <td> </td> </tr> <% While NOT RS.EOF%> <tr> <td><%=RS("produto")%></td> </tr> <%RS.MoveNext%> <%Wend%> </table> </body> </html>