thicomp

você poderia fazer algo assim... <a href="<%=exe("url")%>" target=window>Link</a>

Como assim??? É só você colocar um <a href="" target=window>Link</a> A parte em vermelho serve para abrir em uma outra janela... Abçs

Caraca, tá complicado isso... O engraçado é que algumas msgs são enviadas para a pasta "Badmail" Vlw pelas dicas... Se tiver alguma novidade, posto aqui Abçsss

Oi Pessoal, Bom Dia!! estou tentando fazer um código para envio de email, mas estou com um problema... Qd mando o e-email, ele não chega ao destinatário, ele me dá msg de que foi enviado, mas fica armazenado dentro da pasta "C:\Inetpub\mailroot\Queue"... Alguém saberia me dizer o que é isso, o que faz essa pasta??... Alguém tem alguma sugestão para que esse código seja executado e o e-mail enviado corretamente???? Abçsss

Com certeza o código feito em Javascript, já que este roda na máquina cliente... Vale lembrar que cookies geram arquivos txt qd criados, já os objetos session não...

Como disse no post, o cdonts tá instalado e configurado

Oi pessoal, estou com este código para envio de email com cdonts, mas não estou conseguindo enviar s letra... Será que alguém teria alguma sugestão??... O cdonts já está gravado e configurado... <% 'Configurações necessárias do objeto CDONTS Set Mail = Server.CreateObject("CDONTS.NewMail") 'Destinatários ... somente endereços eletrônicos. Repare no ponto-e-vírgula ... Mail.To = "email@site.com.br" 'O endereço eletrônico do remetente ... Mail.From = "email@site.com.br" Mail.Subject = "Sim ... é bom ter um assunto" corpo="Qualquer coisa que represente o corpo, inclusive <b>HTML</b>" Mail.Body = corpo 'Prioridade ... use com cuidado ... 0 = baixa, 1 = normal (padrão), 2 = alta(!) Mail.Importance = 1 'Formato do corpo da mensagem ... 0 = com HTML, 1 = modo texto (padrão) Mail.BodyFormat = 0 'Coisas da Microsoft ... 0 = modo texto (padrão), 1 = com HTML Mail.MailFormat = 1 On Error Resume Next Mail.Send If Err <> 0 Then Response.write "Erro ! Problemas com o servidor SMTP" Else Response.write "Mensagem enviada com sucesso !" End if 'Libere o objeto Mail ... o servidor agradece. Set Mail = Nothing %>

Bom galera, já registrei o componente aspexec.dll. O problema é que o código não está sendo executado Set Executor = Server.CreateObject("ASPEXEC.Execute") Executor.Application = "Novo_API.bat" Executor.Parameters = "" Executor.ShowWindow = true Executor.TimeOut = 9000 strResult = Executor.ExecuteDosApp response.write ": "&strResult response.end Retorna ERROR: Could not create process Alguém teria alguma sugestão??? Ahhh!!! Se eu executar o arquivo .bat manualmente ele funciona normal Abçs

Galera, alguém sabe como posso executar um arquivo .bat durante a execução de uma página ASP??

Olá pessoal Preciso executar um código no MS-DOS no servidor. Já procurei e encontrei a utilização do componente ASPExec. Teria como eu fazer isso sem utilizar este componente?? Abçs

Como assim???

Pessoal, será que alguém poderia me solucionar uma dúvida?? Tenho este código para abertura de arquivos, ele funciona normal, mas se uma das variáveis tiver um nome composto, ele não abre o arquivo. Outra coisa, quando mando imprimir na tela a variável "caminho_foto", se a variável tiver nome simples ele me retorna o caminho completo, mas se tiver nome composto ele não me retorna nada... Será que alguém teria alguma sugestão???? Abçs <% a=request.querystring("a") b=request.querystring("b") c=request.querystring("c") 'Declaramos as variáveis e os objetos que iremos utilizar na memória Dim objFSO, Caminho_Foto Response.AddHeader "enc-Type","multipart/form-data" 'Habilitamos o Buffer Response.Buffer = True 'Postamos no browser o conteúdo do Response.AddHeader, pois abaixo iremos ler os dados binários de um arquivo e o cabeçalho, tem que estar setado como Content-Type image/jpeg Response.Flush 'Declaramos o valor da variável como caminho físico do local que se encontra a foto. Caminho_Foto = "F:\Root\Produtos\"& a &"\"& b &"\relatorios\"& c &".pdf" response.write caminho_foto&"<br><br>" 'Iniciamos a instância do componente FSO, pois verificaremos se o arquivo existe no caminho determinado pelo usuário. Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Através do método FileExists do componente FSO impomos a condição para verificamos se o caminho físico do arquivo é um caminho válido, para evitar erros ao processar ao carregar o arquivo abaixo If objFSO.FileExists(Caminho_Foto) = True Then 'Declaramos a variável do objeto que usaremos abaixo Dim objLerArquivo 'Declaramos uma constante necessária para ser usado no componente instanciado abaixo. Const adTypeBinary = 1 'Instanciamos o componente responsável por ler o arquivo e retornar a mesma. Set objLerArquivo = Server.CreateObject("ADODB.Stream") 'Iniciamos a operação pela propriedade Open objLerArquivo.Open 'Especificamos ao objeto qual será o tipo de dados que o componente deve processar neste caso entra a constante declarada acima, apontando o tipo de arquivo para binário. objLerArquivo.Type = adTypeBinary 'Carregamos o Arquivo no componente pela propriedade LoadFromFile objLerArquivo.LoadFromFile Caminho_Foto 'Exibimos na tela utilizando o Response.BinaryWrite, o resultado do arquivo que o ADODB.Stream processou acima. Response.BinaryWrite objLerArquivo.Read 'Fechamos o Objeto objLerArquivo.Close 'Terminamos a instancia ao componente liberando a memória Set objLerArquivo = Nothing 'Novamente devolvemos todo conteúdo, armazenado em buffer Response.Flush 'Limpamos o buffer Response.Clear() Else 'Caso o arquivo não seja encontrado, limpamos o buffer e terminamos o programa. Response.Clear() Response.End End If 'Terminamos a instância com o componente FSO e liberamos a memória. Set objFSO = Nothing %>

Bom, por favor, se puderem dar uma olhada neste código Ele lê td certinho, só que na hora de imprimir, ele não faz a função "BubbleSort"... Se eu mando imprimir a matriz, sem a formatação da "table", ele me retorna os nomes dos usuários um na frente do outro, sem ao menos um espaço separando-os. Tipo assim: nome1nome2nome3... Se eu deixar a linha que está em vermelho, chamando a função BubbleSort, me retorna o seguinte erro: Response object error 'ASP 0106 : 80020005' Type Mismatch /rel_P_D/paginacaothi1_2.asp, line 0 An unhandled data type was encountered. CODE <!-- #include file = "menu.css" --> <%@LANGUAGE="VBSCRIPT"%> <% Function BubbleSort( matriz ) dim i, j, aux For i = 0 To UBound(matriz) For j = 0 To UBound(matriz) If( matriz(i) < matriz(j) ) Then aux = matriz(j) matriz(j) = matriz(i) matriz(i) = aux End If Next Next BubbleSort = matriz End Function response.write "<html><head><style>a{text-decoration:none;font-family:verdana;}</style></head><body>" response.write "<br><br><center><table cellpadding=1 cellspacing=1 border=0 width=500>" response.write "<tr bgcolor='#666666'><td align=center height=35 colspan=2><font face=verdana size=2 color='#ffffff'><b>Usuários</b></font>" Response.Expires = 0 Response.Buffer = True session ("it")="usu" 'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSO Dim iLoop, limite, pagina, totalarq, i, x Dim vlMaximo, vlMinimo, anterior Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta Dim usuario, cor Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjPasta = ObjFso.GetFolder(server.MapPath("/rel_P_D/Usuarios/")) limite = 14 ' 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) = left(objArq.Name,3) 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 select case arrAvatar(i) %> <!--#include file="select.asp"--> <% end select matriz = split(usuario,";") for x=0 to UBound(matriz) BubbleSort(matriz) 'response.write BubbleSort ( matriz ) response.write "<tr bgcolor='"& cor &"'><td height=20 colspan=2><a href=http://rel_P_D/cad1.asp?nome="&arrAvatar(i)&">"&matriz(x)&"</a>" next Next response.write "<tr>" IF vlMinimo = 0 Then IF Not (vlMaximo >= (y-1)) Then End IF Else response.write "<td align=left valign=top><a href='paginacaothi1_2.asp?pag="& anterior &"'><img src='img/esq.gif' border=0>anterior</a>" End IF IF Not (vlMaximo >= (y-1)) Then response.write "<td valign=top align=right><a href='paginacaothi1_2.asp?pag="& pagina &"'><img src='img/dir.gif' border=0>próxima</a>" End IF response.write "<br><br>" %>

Bem cara, beleza... Agora não tá dando erro algum, mas também o conteúdo (nomes dos usuários) não estão aparecendo na tela... Está vindo sem conteúdo, somente o html, que é a tabela montada...

Por favor, alguém poderia meajudar neste código... <% FUNCTION SortArray(varArray) For i = UBound(varArray) - 1 To 1 Step - 1 MaxVal = varArray(i) MaxIndex = i For j = 0 To i If varArray(j) > MaxVal Then MaxVal = varArray(j) MaxIndex = j End If Next If MaxIndex < i Then varArray(MaxIndex) = varArray(i) varArray(i) = MaxVal End If Next END FUNCTION response.write "<html><head><style>a{text-decoration:none;font-family:verdana;}</style></head><body>" response.write "<br><br><center><table cellpadding=1 cellspacing=1 border=0 width=500>" response.write "<tr bgcolor='#666666'><td align=center height=35 colspan=2><font face=verdana size=2 color='#ffffff'><b>Usuários</b></font>" Response.Expires = 0 Response.Buffer = True session ("it")="usu" 'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSO Dim iLoop, limite, pagina, totalarq, i, x Dim vlMaximo, vlMinimo, anterior Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta Dim usuario, cor Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjPasta = ObjFso.GetFolder(server.MapPath("/rel_P_D/Usuarios/")) limite = 10 ' 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) = left(objArq.Name,3) 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 response.write "<tr bgcolor='"& cor &"'><td height=20 colspan=2><a href=http://rel_P_D/cad1.asp?nome=" response.write arrAvatar(i) &"&org=dt>" select case arrAvatar(i) %> <!--#include file="select.asp"--> <% end select ReDim ArrUsuario(46) SortArray ArrUsuario for usuario=1 to UBound(ArrUsuario) if usuarios<>"" then usuarios=usuarios&"," usuarios=usuario next ArrUsuario=split(usuario,",") response.write ArrUsuario(usuario) Next response.write "<tr>" IF vlMinimo = 0 Then IF Not (vlMaximo >= (y-1)) Then End IF Else response.write "<td align=left valign=top><a href='ord1.asp?pag="& anterior &"'><img src='img/esq.gif' border=0>anterior</a>" End IF IF Not (vlMaximo >= (y-1)) Then response.write "<td valign=top align=right><a href='ord1.asp?pag="& pagina &"'><img src='img/dir.gif' border=0>próxima</a>" End IF response.write "<br><br>" %> O erro retornado (refere-se a linha em vermelho) Microsoft VBScript runtime error '800a000d' Type mismatch /rel_P_D/paginacaothi1.asp, line 92

Galera, alguém poderia dar uma ajuda neste código: Ele tem que fazer uma paginação em um arquivo txt. <% Const forReading=1, forWriting=2, forAppending=8 Dim objteste, objtextstream, fso, objfile, objStream, x Set fso = CreateObject("Scripting.FileSystemObject") set objfile = fso.GetFile ("F:\2006.txt") set objStream = objfile.OpenAsTextStream(forReading,false) Texto = ObjStream.ReadAll for x=0 to UBound(Texto) cont = cont+1 arrImage(pag,cont) = Texto if cont = 10 then pag = pag+1 cont = 0 end if next Set Objfso = nothing SetObjArq = nothing MaxRecords = 10 MaxPages = Round (Texto/MaxRecords) if request("pagi") = "" then pagi=1 else pagi=request("pagi") end if for j=1 to 10 response.write dados(x) counter=1 Do while counter<=MaxPages isStart = (((counter-1)*MaxRecords)+1) if cint(counter) = cint(pagi) then ref = ref & "Anterior |" else ref = ref &"<a href = teste16.asp?pagi="&counter&">Próxima</a>" if counter < MaxPages then ref = ref &"|" end if end if counter = counter+1 loop response.write ref next %>

Preciso que ao abrir o txt, ele mostre na tela o arquivo e partes, pois contendo muitas informações, este seria melhor visualizado se fosse mostrado em páginas diferentes

Pessoal, podem dar uma olhada neste código. É pra ler um arquivo txt e paginar os valores dele. Me retorna o seguinte erro;: Microsoft VBScript runtime error '800a000d' Type mismatch: 'Texto' /Cristalia/Desenvolvimento/teste.asp, line 29 <% response.write "<table cellpadding=1 cellspacing=1 border=0 width=500>" Const forReading=1, forWriting=2, forAppending=8 Dim objteste, objtextstream Set Fso=CreateObject("Scripting.FileSystemObject") Set ObjFile=Fso.GetFile("F:\Doc\historico\2006.txt") Set ObjStream=ObjFile.OpenAsTextStream(forReading,false) Dim num, num1, num2 Dim arrImage(15,200) response.write "<tr><td>Produto<td>Nome<td>Setor<td>Documento<td>Data/Horário<td>Motivo<td>Número IP</tr>" Texto=ObjStream.ReadAll Dados=Split(Replace(Texto,Chr(13),""),Chr(10)) cont=0 pag=1 for x=0 to UBound(Dados) cont=cont+1 arrImage(pag,10)=Dados(x) if dados(x)="" then response.write "" response.write "<tr>" else response.write "<td>"&Dados (x) end if next objStream.Close Set Fso=nothing Set objStream=nothing maxRecords=10 MaxPages=Round(Texto/MaxRecords) 'linha 29 if request("pagi")="" then pagi=1 else pagi=request("pagi") for j=1 to 10 response.write arrImage(pagi,j) next counter=1 Do While counter <= MaxPages iStart=(((Counter - 1)*maxRecords)+1) if cint(counter)=cint(pagi) then ref=ref &"<strong>Anterior</strong>" else ref=ref & "Próxima" if counter < MaxPages then ref=ref&"|" end if end if counter=counter+1 loop response.write ref end if %>

Oi Pessoal, alguém teria alguma idéia de como fazer uma paginação, a partir de informações de um txt. Preciso paginar o conteúdo do txt Obrigado

Cara, dá uma olhada neste código. Ele faz mais ou menos o que você quer, só que através de um select... Talvez possa t dar uma luz... <FORM action='caminho_do_arquivo' method=post name=teste> <br><br><select name=lista size=1 onchange="if(this.value!='') document.teste.result1.value = document.teste.lista.options[document.teste.lista.selectedIndex].text; document.teste.result.value=this.value;"> <option value='valor 1'>Teste1 <option value='valor 2'>Teste2 <input type=text size=10 name=result readonly><input type=hidden size=10 name=result1> </form> Abçs

Não, é asp mesmo

Bom, é o seguinte... Tenho um sistema de reserva, onde o usuario faz a reserva de um determinado item e clica na opção salvar. O problema: Algumas máquinas esta função funciona normalmente, faz a reserva do jeito que tem que ser, mas em outras máquina, se você dá o salvar para fazer esta reserva, a página não faz nada... Não é problema de código, pois senão nenhuma máquina conseguiria fazer a reserva... O problema é de máquina mesmo. Será que teria alguma configuração de navegador para que isso não ocorra?

Pessoal, estou com um problema, será que alguém poderia me ajuda?? Bom, tenho uma rede com aproximadamente 30 pc's, mas tem algumas funcões do asp que não consigo fazer com que execute em algumas máginas, em outras executa normal. Alguém tem alguma sugestão pra me mandaa?? Abçs.

É isso aí Quero uma senha que bloqueie o pc de entrar no Sistema Operacional... Já fucei em todo o SETUP, mas não encontrei em lugar algum como fazê-lo Abçs

Pessoal, será que alguém saberia me dizer como faço pra colocar uma senha na bios, já que meu SO é Win98 e não tem como eu classificar usuarios para o SO. Qd entro no Setup da máquina, só vejo a opção de mudar a senha do Setup. Alguém saberia me dizer como posso fazer isso. Obrigado