Decio

Caso a versão do Windows seja seja a 9x você pode fazer assim: Open "lpt1" For Output As #1 Print #1, "^[&|2S^[&|26a0o0|0E^[&f2y0X^[(12U^[(s16602t0b1s18.00v1P" Close #1 Neste caso não é preciso nem o driver da impressora instalado. No Windows 2000,XP etc... acho que não funciona deste jeito.

Eu rodei o seu script e não deu erro.Eu nunca instalei o IIs no XP , mas acredito que deva ser igual a todos. tente olhar no MS management console (ou algo parecido) o SMTP site (IIs) e verifique se o serviçõ não esta parado ou mesmo se está instalado. Só não se esqueça de usar o Set mensagem = Nothing no final do seu código.

você tem razão urso , tem até um tópico a respeito: http://scriptbrasil.com.br/forum/index.php...t=0entry36388 para mais informação.

Falar em time-out para Sessão , deixei um tempo sem usar o micro , apertei o F5, e vejam como ficou o meu nome! Ficou como guest. Acho que é bug.

Com session não vai dar certo, pois é um ID unico para cada usuario. No caso teria que usar o objeto application que pode ser visto por todos. Também não aconselho gravar em banco de dados, pois pode acontecer do usuario desligar o micro ou travar e não vai ser atualizado o banco de dados e ninguém mais podera se logar.

Já tive este problema, campo texto não tem o mesmo efeito que o campo data para ordenar. O melhor é criar um campo data para substituir o campo texto.

Acho que em vbscript não tem esta função. Seria preciso você desenvolver uma função que faça isto. exemplo: Dim MyArray(10),Ret MyArray(0) = "A" MyArray(1) = "B" MyArray(2) = "C" MyArray(3) = "D" Ret = VerIndice("B") 'Aqui envia a string a ser procurada response.Write Ret Function VerIndice(string1) For i = 0 To 3 If MyArray(i) = string1 Then Exit For Next VerIndice = i End Function Obs: este é apenas um exemplo, se não encontrar a srtring o retorno sera sempre 3, o que estaria errado.

quando você instala o Office , é criado um driver ODBC para arquivos .xls Se você criar uma conexão para o arquivo do excel , talvez seja possível fazer esta pesquisa que você precisa A conexão seria mais ou menos assim: Con.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverId=790;" & _ "DBQ=\teste\arquivo.xls;" & _ "DefaultDir=\teste;" Depois você trata o arquivo como se estivesse lendo de um banco de dados normal. Não sei se isto da certo , nunca tentei.

Valeu é isso que eu preciso. Usei o código do bolomaster. Vou testar o Java script do Jonh para ver como funciona, mas de qualquer forma já esta resolvido. Valeu pessoal.

E se você fizesse algo assim : Copie e cole este código numa página chamada teste.asp e arrume duas figuras com tamanhos diferentes chamadas figura1.gif e figura2.gif <% ID=Request.QueryString("ID") If ID = "" then Response.Write "<p align='center'><a href='teste.asp?ID=figura2.gif'><img border='0' src='figura1.gif'></a></p>" else Response.Write "<p align='center'><a href='teste.asp?ID=" & ID & "'><img border='0' src='" & ID & "'></a></p>" End if %> Neste caso você poderia criar várias figuras passando o valor atravéz da QueryString ID

A pergunta não é bem de ASP , mas como vou utilzar o código em ASP... Alguém sabe se é possivel substituir o botão submit para envio de dados ,por um link com uma figura? O que eu quero na verdade é ter uma caixa de texto para digitar dados e enviar o que foi escrito sem utilizar o botão submit e sim colocar uma figura no lugar obs(não quero figura no botão).

Qual bolomaster ? Aquele com barra de rolagem? Aquilo deve ser com frame.

Normalmente as pessoas usam duas imagens: uma pequena de baixa resolução para carregar mais rápido e a outra, a imagem final , com melhor resolução que será vista pelo usuário. Na imagem pequena basta inserir um link para a outra imagem. Qualquer dúvida posta ai.

você pode fazer assim também: <% msg = "@.com" 'Aqui você pega o que o usuário digitou If InStr(UCase(msg), "HTTP") Then Response.Write "http:" ElseIf InStr(UCase(msg), "WWW") Then Response.Write "WWW" ElseIf InStr(UCase(msg), "@.COM") Then Response.Write "mail-to:" End If %> troque o valor da variavel msg para ver o resultado.

Valeu Guto , é isto mesmo. Eu não sabia como pegar o valor da consulta em ASP.

Tipo assim : Voce tem um campo ID auto numeração , e após deletar alguns registros , ficam os "buracos" . Neste caso , você deleta o campo ID e cria novamente, ai este novo campo ficara ordenado do numero 1 até o ultimo registro. O unico problema é que você não pode ter outras tabelas com campos relacionados ao ID, e também mudara o numero de todos os registros após o primeiro registro que não tiver na sequencia. Se isto não for problema... Abraço.

Só na gambi, você deleta o campo e cria um novo de auto-numeração.

Ola , preciso calcular o valor de um campo em ASP utilizando banco de dados SQL , mas não estou conseguindo. Achei na documentação do SQL o comando SUM que faz este cálculo, porém só consegui executar o comando no Enterprise Manager do SQL e não sei como passar este comando para asp.Alguém sabe como eu posso montar o select para fazer isto e recuperar o valor dos campos?? Obrigado.

já que você apagou tudo , não é + fácil re-instalar? Ou não funciona nem assim?

Para os dois primeiros componentes aspSmartUpload e AspJpeg http://www.aspupload.com/ http://www.aspemail.com ou direto no site do fabricante: http://www.persits.com/

Outra coisa que você pode fazer é guardar a senha criptografada no banco de dados , depois você faz um select somente pelo usuario (e não pelo usuario e senha), se achar o usuário , ai sim você valida a senha. No caso acima não vai existir o usuario e mesmo que exista a senha não vai bater.

É melhor você colocar a linha que esta dando erro aqui no fórum qu efica mais fácil

Realmente , o arquivo a ser anexado tem que estar no servidor. Se você pode instalar algum componente de Upload em seu servidor , eu sugiro o AspUpload http://www.aspupload.com/ . Caso você não possa instalar nenhum componente , estou enviando um código para upload sem componente.Eu teste e ele funcionou. Código do Form que seleciona o arquivo: ========================= <html><body> <form action="upload.asp" enctype="multipart/form-data" method="post"> Arquivo: <input type="file" name="test"> <br> <input type="radio" name="filename" value="original" checked> Usar o nome original <br> <input type="radio" name="filename" value="userSpecified"> Usar o nome: <input type="text" name="userSpecifiedName" value=""> <br> <input type="submit" value="Enviar"> </form> </body> </html> Código do Form que faz upload: ========================= <% ' Ajuste o timeout conforme o tamanho ' dos arquivos que você irá aceitar server.scripttimeout = 5400 'Caminho virtual onde os arquivos devem ser salvos no servidor filePathDefault = "./" const ForWriting = 2 const TristateTrue = -1 crlf = chr(13) & chr(10) ' Esta função recupera o nome do campo do formulário function getFieldName( infoStr) sPos = inStr( infoStr, "name=") endPos = inStr( sPos + 6, infoStr, chr(34) & ";") if endPos = 0 then endPos = inStr( sPos + 6, infoStr, chr(34)) end if getFieldName = mid( infoStr, sPos + 6, endPos - (sPos + 6)) end function ' Esta função recupera o nome do arquivo function getFileName( infoStr) sPos = inStr( infoStr, "filename=") endPos = inStr( infoStr, chr(34) & crlf) getFileName = mid( infoStr, sPos + 10, endPos - (sPos + 10)) end function ' Esta função recupera o tipo mime do arquivo function getFileType( infoStr) sPos = inStr( infoStr, "Content-Type: ") getFileType = mid( infoStr, sPos + 14) end function ' Lê o arquivo o arquivo e tudo mais que foi enviado postData = "" Dim biData biData = Request.BinaryRead(Request.TotalBytes) ' Como o arquivo é binário, iremos armazená-lo ' numa variável mais controlável for nIndex = 1 to LenB( biData) postData = postData & Chr(AscB(MidB( biData, nIndex, 1))) next ' Como os dados foram lidos de uma forma binária (BinaryRead), a instrução Request.Form ' não está mais disponível. Portanto, será necessário processar as variáveis manualmente. ' Primeiro, será verificado o tipo de codificação. contentType = Request.ServerVariables( "HTTP_CONTENT_TYPE") ctArray = split( contentType, ";") ' O envio de arquivos somente funciona com a codificação ' "multipart/form-data", por isso vamos checar se esse foi a codificação usada. if trim(ctArray(0)) = "multipart/form-data" then errMsg = "" ' Armazene o conteúdo do formulário ... bArray = split( trim( ctArray(1)), "=") boundry = trim( bArray(1)) ' ... divida as variáveis formData = split( postData, boundry) ' agora, nós precisamos extrair a informação de cada variável. dim myRequest, myRequestFiles(9, 3) Set myRequest = CreateObject("Scripting.Dictionary") fileCount = 0 for x = 0 to ubound( formData) ' duas marcas "crlf" indicam o final da informação sobre campo ' tudo depois dele é o valor infoEnd = instr( formData(x), crlf & crlf) if infoEnd > 0 then ' lê as informações do campo... varInfo = mid( formData(x), 3, infoEnd - 3) ' lê o valor do campo varValue = mid( formData(x), infoEnd + 4, len(formData(x)) - infoEnd - 7) ' verifica se ele é um arquivo if (instr( varInfo, "filename=") > 0) then myRequestFiles( fileCount, 0) = getFieldName( varInfo) myRequestFiles( fileCount, 1) = varValue myRequestFiles( fileCount, 2) = getFileName( varInfo) myRequestFiles( fileCount, 3) = getFileType( varInfo) fileCount = fileCount + 1 else ' outro tipo de campo myRequest.add getFieldName( varInfo), varValue end if end if next else errMsg = "Tipo de codificação inválido!" end if ' Salva o arquivo enviado set lf = server.createObject( "Scripting.FileSystemObject") if myRequest("filename") = "original" then ' Usa o nome do arquivo original browserType = UCase( Request.ServerVariables( "HTTP_USER_AGENT")) if (inStr(browserType, "WIN") > 0) then ' Sistema Windows sPos = inStrRev( myRequestFiles( 0, 2), "\") fName = mid( myRequestFiles( 0, 2), sPos + 1) end if ' Sistema Mac if (inStr(browserType, "MAC") > 0) then fName = myRequestFiles(0, 2) end if ' Caminho onde os arquivos devem ser salvos filePath = filePathDefault & fName else ' use o nome especificado pelo usuário ' Caminho do arquivo filePath = filePathDefault & myRequest("userSpecifiedName") end if savePath = server.mapPath( filePath) set saveFile = lf.createtextfile(savePath, true) saveFile.write( myRequestFiles(0, 1)) saveFile.close %> <html> <body> <% if errMsg = "" then %> Arquivo enviado com sucesso! <%else %> Erro no envio do arquivo!<br> <%= errMsg %> <% end if %> </body> </html> Vale lembrar que o diretorio deve ter permissão de escrita. PS: Este código não fui eu quem desenvolveu e não sei a quem dar os créditos.

A janela é facil : Crie um form html com este código: <html><body> <form action="upload.asp" enctype="multipart/form-data" method="post"> Arquivo: <input type="file" name="test"> <br> <input type="radio" name="filename" value="original" checked> Usar o nome original <br> <input type="radio" name="filename" value="userSpecified"> Usar o nome: <input type="text" name="userSpecifiedName" value=""> <br> <input type="submit" value="Enviar"> </form> </body> </html> Ai na página ASP você pega o nome e caminho do arquivo com O método request.QueryForm("test")

Se você de imediato precisa de um componente para upload , entre em : http://www.aspupload.com/ Para instalar componentes não é preciso configurar o II's , a não ser que o serviço faça parte do mesmo. Abraço