Marcos-rj

Qual a diferença para: Form.Show e Form.ShowModal ? por que usam + o Show.Modal?

Quem é o Sr. Sr. Binho? :huh: Mandei ums msg lá no formulario do portal e ele está encaminhando para o responsável pela área. você é o mestre do Sr. Binho? kuroi

Mas você já testeu p/ ver? Quando você digitar algo no campo este paassa a ser o valor do campo!

você tentou a paginação que te mandei no outro tópico?

O melhor é usar a função passada pelo nosso amigo acima. No painel de controle do windows xp vá em: Opções Regionais e de Idioma >> Personalizar >> Data

eu nunca + mando nada p/ lá! -_-

Agora todo dia isso, chega no final do dia e os spam atacam!!!

valeu grande, estamos ai p/ isso.

Este arquivo "Thumb.db" não criação do recordset e sim do windows XP, como este código que você está usando serve para exibir todos os arquivos que estão dentro da pasta ele pega este tambem que é oculto. tenta usar este código que estou te passando para fazer a verificação da extenção do arquivo, isso deve resolver o seu problema. FileExtention = LCase(Right((pasta.Name), 4)) If FileExtention = ".jpg" Then End If

Gerando senha aleatórias 'Nesta constante eu determino que letras e números serão utilizados para gerar a senha aleatória. Const szDefault = "abcdefghijklmnopqrstuvxz0123456789" 'Aqui eu chamo o comando Randozime do ASP para gerar um valor randômico para a nossa senha Randomize 'Passa para a variavel os caracteres da seguencia szDefault e pego o tamanho da string para a variável nLenght sValidChars = szDefault nLength = Len( sValidChars ) 'Agora é a hora onde o script vai fazer um loop de 1 até 6 para gerar uma senha com 6 dígitos, caso necessite de uma senha com mais dígitos troque o valor 6 For nCount = 1 To 6 'Nesta linha o Script pega um número aleatório para buscar a posição dentro da constante trazendo o caracter correspondente a esta posição nNumber = Int((nLength * Rnd) + 1) 'Acrescento a variável sRet o valor dela adicionado com o caracter encontrado dentro da constante sRet = sRet & Mid( sValidChars, nNumber, 1 ) Passo para o próximo loop Next P.s as linhas em NEGRITO são comentários

A coleção ServerVariables contém várias informações enviadas do browser do cliente e informações do servidor. Estas variáveis de ambiente são sempre criadas quando uma nova página ASP é requisitada no servidor. O uso das ServerVariables são bem útil em várias aplicações que necessitam de informações do servidor ou do navegador do cliente. ServerVariables A sintaxe para o uso dessa coleção é a mesma usada nas outras coleções do objeto request: (objeto.coleção("elemento")) - request.ServerVariables("variável_de_ambiente"). A varável de ambiente é uma entre as várias existentes, como por exemplo: request.ServerVariables("SCRIPT_NAME"). Este contém as informações sobre o PATH da raiz virtual do servidor até o nome do arquivo como: adm/arquivos/teste.asp. Abaixo listaremos as variáveis de ambiente dessa coleção e sua respectiva função. ALL_HTTP - Lista todos os headers HTTP enviados pelo browser do cliente ao servidor. Informações tais como: host origem, página de origem, caracteristicas do navegador cliente, entre outras. ALL_RAW - Retorna todas as informações enviadas por cabeçalho HTTP da página em seu estado original. APPL_MD_PATH - Devolve o caminho lógico do arquivo ASP em questão (path do metabase). APPL_PHYSICAL_PATH - Caminho físico do arquivo no disco. Este corresponde ao caminho lógico do APPL_MD_PATH (path do metabase). AUTH_TYPE - Método de autenticação utilizado pelo servidor para validar usuários que solicitam um script. AUTH_USER - Nome de usuário fornecido ao servidor em caso de não permitir acesso anônimo ao diretório. Este poderá ser o nome de um usuário de domínio ou usuário do Windows. AUTH_PASSWORD - Senha referente ao usuário logado. Esta variável apenas se encontra disponível no modo básico de autenticação (basic authentication). Para este, é necessário o login ser feito pela caixa de diálogo ao requisitar a página. CERT_COOKIE - ID do certificado digital do cliente.* CERT_FLAGS - Valor de dois bits: bit 0 igual a 1 indica se o certificado do cliente está presente, bit 1 igual a 1, indica que a autoridade de certificação do certificado do cliente é inválida.* CERT_ISSUER - Campo Issuer do certificado do cliente (O=MS, OU=IAS, CN=usuário, C=USA).* CERT_KEYSIZE - Número de bits na chave de conexão Secure Sockets Layer - SSL. Ex.: 64, 128.* CERT_SECRETKEYSIZE - Número de bits na chave do "Server certificate private" (chave privada).* CERT_SERIALNUMBER - Campo Serial Number do certificado digital do cliente.* CERT_SERVER_ISSUER - Campo Issuer do certificado do servidor.* CERT_SERVER_SUBJECT - Campo Subject do certificado SSL do servidor.* CERT_SUBJECT - Campo Subject do certificado do cliente.* CONTENT_LENGTH - Tamanho em bytes, do conteúdo de uma requisição request ao servidor. CONTENT_TYPE - Tipo de requisição enviada ao servidor pelo cliente. GATEWAY_INTERFACE - Tipo de interface CGI usada no servidor web para manipular a solicitação (request).* HTTP_nomeheader - Valor armazenado no header especificado. Podemos destacar os mais comuns: HTTP_ACCEPT, HTTP_ACCEPT_ENCODING, HTTP_ACCEPT_LANGUAGE, HTTP_COOKIE, HTTP_USER_AGENT, HTTP_REFERER. HTTPS - Retorna à uma solicitação request, dizendo se o canal é seguro (ON) ou não seguro (OFF). HTTPS_KEYSIZE - Número de bits na chave de conexão Secure Sockets Layer - SSL.* HTTPS_SECRETKEYSIZE - Número de bits na chaver do "server certificate private".* HTTPS_SERVER_ISSUER - Campo Issuer do certificado do servidor.* HTTPS_SERVER_SUBJECT - Campo subject do certificado do servidor.* INSTANCE_ID - ID, em formato texto, para a instância do Internet Information Server (IIS).* INSTANCE_META_PATH - Path do metabase para a instância do Internet Information Server (IIS) que responde à solicitação (request).* LOCAL_ADDR - Retorna o endereço lógico do servidor onde foi feito a requisição (o endereço do servidor onde se encontra o arquivo chamado). LOGON_USER - Conta do usuário usada para efetuar o logon no Windows.* PATH_INFO - Caminho virtual do arquivo que realizou a requisição, apartir da raiz do servidor. Ex.: /arquivos/documento.asp PATH_TRANSLATED - Versão da variável "PATH_INFO" transformado em path físico. QUERY_STRING - Retorna as variáveis passadas por cabeçalho HTTP à uma página via QueryString. Estes são apresentados apartir do ponto de interrogação - ? . Ex.: arquivo.asp?id=1&opcao=2=versao=a. Esta varável retorna: id=1&opcao=2=versao=a REMOTE_ADDR - Retorna endereço IP da máquina cliente que requisitou algo ao servidor. REMOTE_HOST - Nome do host que requisitou algo ao servidor. REMOTE_USER - Nome da máquina que solicitou o arquivo asp ao servidor. Disponível somente se disponível. REQUEST_METHOD - Método usado pela requisição ao servidor (GET ou POST) SCRIPT_NAME - Path virtual do arquivo ASP requisitado ao servidor. SERVER_NAME - Nome do servidor onde foi realizada a requisição (pode ser retornado o endereço IP, DNS alias ou nome do host). SERVER_PORT - Retorna o número da porta onde foi realizada a requisição ao servidor. SERVER_PORT_SECURE - Retorna 0 ou 1. Diz se a porta onde é recebida as solicitações pelo servidor é segura (1) ou não segura (0). SERVER_PROTOCOL - Retorna nome e versão respectivamente do protocolo usado pelo servidor WEB para interpretar a solicitação. Ex.: HTTP/1.1 - Retorna nome e versão do servidor WEB. Ex.: Microsoft-IIS/5.1 URL - Endereço URL base requisitado (sem a QueryString) pelo browser cliente.* As variáveis que HTTPS, provavelmente não poderão ser testadas ou usadas sem um ambiente seguro. Vejamos abaixo como usar algumas essas variáveis: <% Dim variavel_1 Dim variavel_2 Dim variavel_3 variavel_1 = request.ServerVariables("LOCAL_ADDR") variavel_2 = request.ServerVariables("REMOTE_ADDR") variavel_3 = request.ServerVariables("PATH_INFO") response.write("Endereço (local) Servidor: " & variavel_1) response.write("<br>") response.write("Endereço Cliente: " & variavel_2) response.write("<br>") response.write("Path raiz: " & variavel_3) response.write("<br>") response.write("Nome do Servidor: " & request.ServerVariables("SERVER_NAME")) %> * Informações retiradas do livro "ASP - Guia de Consulta Rápida"

Não se esqueça de trocar o destinatário e o remetente!

Giovanna, o que você quer é simples. tenta assim: Depois de fechar de enviar os dados e fechar o objeto. set objMail = nothing você abre o cdonts de novo e manda uma mensagem de agradecimento, mas o nome o nome. por exemplo: você usou: set objMail no agradecimento você usa: set objMail1 testa ai.

Agora me confundi, respondi a quem? Acho que respondi a Barbara em cima do código da Giovana!!! Putz, foi mal. bam Barbara, é só adapitá-lo ao seu código! ^_^ Quando for assim faz um tópico novo, são duvidas diferentes!

Tenho aqui essa função que peguei na net, serve para fazer ping. pode adaptar o código, se a página sair do ar te enviar uma mensagem. espero que seja útil. <% Response.Buffer = true %> <% ' Asp ping - sem componentes. '########################################################## 'Para windows 2000 e versoes anteriores. '########################################################## 'sua URL url = "www.uol.com.br" Set objWShell = CreateObject("WScript.Shell") Set objCmd = objWShell.Exec("ping " & url) strPResult = objCmd.StdOut.Readall() set objCmd = nothing: Set objWShell = nothing strStatus = "offline" if InStr(strPResult,"TTL=")>0 then strStatus = "online" response.write url & " está " & strStatus response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") %> OU <% <% Response.Buffer = true %> ' Asp PING - sem componetes. '########################################################## 'Para windows XP '########################################################## 'sua URL url = "www.uol.com.br" WMI = "winmgmts:{impersonationLevel=impersonate}" wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _ " = '" & url & "'" set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) Response.write url & " esta " For Each result in PingResult if clng(result.StatusCode)>0 then response.write "offline" else response.write "online" end if Next %> T+

Bom, segue o código, eu coloquei de acordo com os dados passado, mas pode ter erros, estou no trabalho, não tenho como testar, a unica coisa que precisa é acerta a ligação com o banco de dados. com este código abaixo será enviado 20 e-mails de cadas vez, caso queira + é só alterar a quantidade na variável const registros = 20. Qualquer coisa posta ai. <!--#include file="modelo-inicio.asp"--> <% '=== Cria os objetos e abre a conexão com o banco de dados Set ObjConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("banco/bd.mdb") email_from = request("email_from") destinatario = request("destinatario") nomeSite = request("nomeSite") des_sec_pg = request("des_sec") cod_sec_pg = request("cod_sec") cod_tem_pg = request("cod_tem") '=== Inicia a seleção dos dados na tabela maladireta SQL = "select des_cab, des_rod from tb_cab_rod where cod_tem_idi = "&cod_tem_pg" RS.Open SQL, ObjConn, 3, 3 '"=== Após selecionado todos os registros da tabela, abre a conexão usando objeto RecordSet '=== Condição para verificar se existe algum valor na variável página na querystring If Request.QueryString("pagina") = "" Then pagina = 1 Else pagina = Request.QueryString("pagina") End if 'Variável constante para controle de quantidade de registros exibidos (ou lidos) por página const registros = 20 'Aqui o valor atribuido à variável registro é indicado à propriedade PageSize (quantidade por página) RS.PageSize = registros RS.AbsolutePage = pagina 'Abaixo será atribuida à variável totpaginas a quantidade total de páginas. Usando o exemplo acima, se a quantidade total de registros for de 60, então, 60 : 20 (total de registros por página) = 3 páginas totpaginas = RS.PageCount 'Para a variável totregistros é atribuido o total de registros na tabela maladireta. totregistros = RS.RecordCount 'Atribuindo o valor 1 ao contador i i = 1 'Abaixo se inicia o loop para o envio de e-mails em questão. '=== Aqui inicia o Loop para o envio dos e-mails While NOT RS.EOF AND NOT i > registros Set objMail = Server.CreateObject("CDONTS.NewMail") Server.ScriptTimeout = 50000 HTML = "<table bordercolorlight=cdcdcd bordercolordark=646464 bgcolor=000000 cellspacing=5 cellpadding=5 border=1 align='center'>"&_ "<tr>"&_ "<td bgcolor=ffffff align='center'>"&_ "<table width=100% height=100% cellspacing=5 cellpadding=5 border=0>"&_ "<tr>"&_ "<td>"& des_cab &"</td>"&_ "</tr>"&_ "<tr>"&_ "<td height='100%' valign='top'>"&_ "<br><font face=verdana size=2>Nome:<b>" & request.querystring("nome") & "</b><BR>"&_ "Telefone: <B>(" & request.querystring("prefixo") & ") " & request.querystring("telefone") & "</b><BR>"&_ "E-mail: <B>" & request.querystring("email_from") & "</b><BR>"&_ "Mensagem: <br><b>" & request.querystring("conteudo") & "</b>"&_ "</td>"&_ "</tr>"&_ "<tr>"&_ "<td>"& des_rod &"</td>"&_ "</tr>"&_ "</table>"&_ "</td>"&_ "</tr>"&_ "</table>" objMail.From = email_from objMail.Subject = "Fale Conosco - "& nomeSite objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.to = destinatario objMail.Body = HTML x = objMail.Send If x = true then Session("good") = Session("good") + 1 Else Session("bad") = Session("bad") + 1 motivo = Mailer.Response End If i = i + 1 RS.MoveNext Wend '=== Fim do loop '=== Condição para verificar se a variavel pagina é maior que o total das paginas If NOT (pagina > totpaginas) Then Response.AddHeader "Refresh", "2;URL=enviar.asp?pagina="&pagina+1 Response.Write("<strong><font face=verdana color=red>20 e-mails enviados.<BR>") Response.Write("Aguarde, preparando script para enviar mais 20 e-mails...</font></strong>") Else Response.Write("<strong><font face=verdana color=red>Todos os e-mails enviados.</font></strong><BR><BR>") Response.Write("<font face=verdana color=blue><b>Estatísticas</b></font><BR>=============================<BR>") Response.Write("<font face=verdana color=black>E-mails enviados com sucesso: <b>"&Session("good")&"</b><BR>") Response.Write("E-mails enviados sem sucesso: <b>"&Session("bad")&"</b><BR>") Response.Write("Erro: <b>"&motivo&"</b><BR>--<BR>") Response.Write("Total de e-mails no banco de dados: <b>"&totregistros&"</b></font>") Session("good") = 0 Session("bad") = 0 set objMail = nothing Set RS = Nothing Set ObjConn = Nothing End If %>

Uma idéia para acabar com este problema é fazer uma paginação. vou tentar montar aqui algo rapido e mando.

Exemplo de uso do ASPMAIL Dim objMail Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.RemoteHost = "smtp.dominio.com.br" objMail.FromName = "Nome do Remetente" objMail.FromAddress = "remetente@dominio.com.br" objMail.AddRecipient "Nome do Destinatário", "destinatario@dominio.com.br" objMail.Subject = "Assunto da mensagem" objMail.BodyText = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste." If objMail.SendMail Then Response.Write "E-mail enviado..." Else Response.Write "Erro no envio de e-mail: " & objMail.Response End If Set objMail = Nothing

valeu mas já tenho instalado!

Como instalar o IIS http://www.baboo.com.br/absolutenm/templat...61&zoneid=4

Oficialmente o Home não suporta o IIS porém existem alguns hacks que podem fazer ele funcionar: Tutorial em ingles http://adamv.com/dev/articles/iis-on-xp-home Utilize por sua própria conta e risco.

O problema é de permissão para gravar. Dentro do plesk você pode liberar as permissões dentro da pasta Diretorios Web.

NOME: Sessões(Session) em ASP Fala sobre sessões em ASP. Usuário: Marcos-RJ me creditaram pontos e sumiram com o artigo!

Sacanagen... :angry:

uma maneira rápida e fácil de desenvolver uma página que exibirá arquivos de uma determinada pasta. Este script facilitará as páginas de download, pois exibiremos os arquivos de uma pasta no servidor sem que necessite que os mesmos estejam cadastrados em um banco de dados. Para isso, criaremos uma página chamada "arquivos.asp " e nela utilizaremos. <% "Criando variáveis dim objeto, pasta, arquivo "Para exibir o arquivo, nós utilizaremos o FSO (File System Object) "e para isto, criaremos o objeto set objeto=createobject("scripting.filesystemobject") "Agora que o objeto já está criado, temos que indicar a pasta que queremos exibir os arquivos e utilizaremos a variável pasta para armazenar o nome da pasta que o objeto irá explorar "Em nosso caso, iremos explorar a pasta raíz set pasta=objeto.getfolder("c:\") %> < html> < body> < p> < font color="#0099CC" size="4" face="Arial"> < b>Arquivos da pasta <%=pasta%></b> < /p> < /font> < table width="200" border="1" cellpadding="1" cellspacing="2" bordercolor="#CCCCCC"> < % "Para manipularmos a coleção de arquivos contidos na pasta utilizaremos o comando For Each "Na linha abaixo capturaremos todos os arquivos (variável arquivo) da pasta for each arquivo in pasta.files %> <tr> <td width="191" bordercolor="#FFFFFF" bgcolor="f0f0f0"> <font size="2" face="Arial"> <% "Logo abaixo escreveremos o nome do arquivo dentro de uma tabela "Repare que estaremos fazendo uma repetição da linha "Ou seja, cada nome ficará em uma linha da coluna response.write arquivo.name %> </font> </td> </tr> < % "Passar para o próximo arquivo next %> < /table> < /body> < /html> Caso queira retirar a extenção de cada arquivo, basta subtituir o comando que mostra o nome do arquivo (response.write arquivo.name, linha 33) por: "Iremos contar a quantidade de caracteres do nome e diminuir por 4 "pois a extenção geralmente são 4 caracteres contando com o ponto (.) total=len(arquivo.name)-4 "agora basta mostrar o nome do arquivo mostrando somente os caracteres antes do ponto response.write left(arquivo.name,total) Muito bem. Está aí um script simples de se fazer e que, dependendo da ocasião, é uma "mão na roda"!