Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Tudo que cyberalexxx postou

  1. é isso mesmo crie uma consulta com os dados do formulário e coloque um botão para imprimir usando javascript: <input type="button" value="Imprimir" onclick="javascript:window.print()"> Muita atenção na formatação dos campos nesta pagina, pois nada pior que um formulário que não se encaixa no papel de jeito nenhum.
  2. Em complemento ao que o Dark0 disse acima, só reforçaria o Request ID
  3. cyberalexxx

    Asp + Txt

    Pequeno tutorial sobre txt: Para exemplificar o uso do objeto Server trabalharemos com o ActiveX FileSystemObject. Tal componente possui uma serie de propriedades e métodos para manipulação de arquivos e diretórios do servidor Web. Para instanciar tal objeto numa página ASP escrevemos o seguinte código: Set Objeto = Server.CreateObject(“Scripting.FileSystemObject”) Esse objeto recém instanciado representa o Sistema de Arquivo do servidor Web. Devemos agora criar outro objeto(TextStream), a partir desse, para representar um determinado arquivo. Fazemos isso, utilizando o método OpenTextFile do FileSystemObject:Set Arquivo = Objeto.OpenTextFile(Nome,modo,cria,formato) onde: Para lermos o conteúdo de um arquivo, podemos utilizar os seguintes métodos do objeto TextStream: Mas se nos interessar gravar informações no arquivo, os métodos disponíveis são: Esse componente ActiveX ainda possui as seguintes propriedades: O código a seguir mostra como abrimos um arquivo localizado no servidor WEB e exibimos seu conteúdo:<% @Language=vbScript %> <HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD> <BODY><CENTER> <% dim final final = "</CENTER></BODY></HTML>" On Error Resume Next Set Obj = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",1) if Err then Response.write "Ocorreu um erro tentando abrir o arquivo!" Response.write final Response.End end if Response.Write "Lista de E-mails<BR>" Response.write "<HR>" do while arquivo.AtEndOfStream=false a = arquivo.Readline response.write a & "<BR>" a = arquivo.Readline response.write a & "<HR>" loop Response.Write "Nova Entrada" Response.Write "<FORM ACTION=Arquivo2.asp>" Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>" Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>" Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>" REsponse.Write final arquivo.close %> A próxima página ASP mostra como escrever num arquivo localizado no servidor WEB. Lembrando que essa página deve ser acessada por um formulário WEB com um objeto de NAME=Nome e outro NAME=Email: <% @Language=vbScript %> <HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD> <BODY><CENTER> <% dim final final = "</CENTER></BODY></HTML>" On Error Resume Next Set Obj = Server.CreateObject("Scripting.FileSystemObject") Application.Lock Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",8) if Err then Response.write "Ocorreu um erro tentando abrir arquivo!" Response.write final Response.End end if Arquivo.WriteLine(Request("Nome")) Arquivo.WriteLine(Request("Email")) arquivo.close if Err then Response.write "Ocorreu um erro tentando gravar no arquivo!" Response.write final Response.End else Response.Write "Dados inseridos com sucesso!" & "<BR>" Response.Write "Nome:" & Request("Nome") & "<BR>" Response.Write "Email :" & Request("Email") end if Response.Write final %> Fonte: Tutorial escrito por "LINEU ANTONIO DE LIMA SANTOS"
  4. cyberalexxx

    Iis Sem Vergonha

    No caso firewal do Norton (internet security) para não ter que configurar um por um, é so voce não bloquear o acesso geral na instalação e sim configurar as permissões de acesso na primeira execução.
  5. cyberalexxx

    Checkbox

    Pelo que vi no seu código não vai dar certo mesmo. No link que voce esta usando o valor do ID não esta sendo passado O ideal seria não fazer por link e sim por botão submit, passando assim o id, voce deve também colocar um campo oculto acao com Value="excluir"
  6. Não da erro algum?? voce simplesmente não recebe o email??
  7. cyberalexxx

    Help Na Paginação

    Vamos ver se eu entendi. voce tem um sistema que exibe 10 registros por pagina. voce que exibir no máximo 10 paginas. Se for isso, voce quer exibir 10 paginas x 10 registros = 100 registros, certo?? então faz isso: ' String SQL para consulta SQL = "select top 100 * from cadastro order by cliente"
  8. Aqui voce esta criando o objeto de email (mail), você sabe se o servidor tem suporte para este componente ("Persits.MailSender")???
  9. cyberalexxx

    Include Virtual !

    Exato, nem include file nem include virtual, permite passar dados via QueryString
  10. cyberalexxx

    Alguem Ja Fez Isto ?

    Tentou dar uma olhada no tópico que eu passei: http://scriptbrasil.com.br/forum/index.php...pic=35364&st=15 pois o código que ta la faz isso, ele pega o tamanho da imagem e abre um pop-up centralizado na tela no tamanho da imagem
  11. cyberalexxx

    Enviar E-mail

    Voce verificou se o server tem suporte ao CDONTS??
  12. cyberalexxx

    Checkbox

    Ok, então onde voce esta passando a informação de ID neste link.
  13. cyberalexxx

    Checkbox

    Se voce usou um select para pegar o correto não seria: value="<%=RecordSet(id)%>
  14. cyberalexxx

    Binaryread

    O problema ta na concatenação da instrução SQL Tenta assim: 81 Set Rs=conn.execute("Select * From fotos_eventos where Evento='"& evento &"'")
  15. cyberalexxx

    Checkbox

    Essa variavel Id ela realmente tem um valor atribuido??
  16. Se eu te entendi bem, isso deve resolver: <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td align="center" valign="top"> <div align="center" class="story"><% = resposta %></div> </td> </tr> <tr> <td align="left" valign="top"> <div class="story"> <% if err = 0 then while not verificacao.eof for i = 1 to 18 If len(verificacao("orc_"&i&"")) > 0 then %> <% = verificacao("orc_"&i&"") %><BR> <% end if next wend end if %> </div> </td> </tr> </table>
  17. cyberalexxx

    Formulario X Access

    voce esta tentando gravar uma informação de formato diferente do campo, tipo gravando caracteres alfanumericos em um campo numérico. de uma avaliada nisso
  18. Me passa o q você quer fazer, pois a lógica ta meio confusa aquele contador até 18 no meio do looping, explica melhor ai.
  19. cyberalexxx

    Formulario X Access

    Posta o erro que esta dando
  20. cyberalexxx

    Binaryread

    cara, hoje ta meio corrido, pra mim começar a adaptar. Voce pode começar que eu vou ajudando.
  21. cyberalexxx

    Binaryread

    deu uma olhada no outro código de upload que eu passei??
  22. cyberalexxx

    Binaryread

    tava dando uma olhada mais detalhada no seu código, e me surgiu uma duvida, para que voce esta usando essa informação: a = Request.form("areaSol") pelo que vi você só da um response.write nela, ela é mesmo necessária pois ela é a pedra no caminho.
  23. cyberalexxx

    Usando Dll

    para registrar uma DLL no servidor botão iniciar executar regsvr32 nomedaclasse.dll
  24. cyberalexxx

    Urgente

    Inserir imagens?? Como assim?? uma imagem em um campo de uma tabela?? ou sómente o caminho da imagem??
×
×
  • Criar Novo...