negociadorweb

poe o codigo da pagina pra eu poder dar uma olhadinha e ver onde está o erro, ok? :ph34r:

Voce mostrou o codigo.... e o erro qual é? poe ae q a gente da um jeito :ph34r:

é O seguinte: GetRows Retorna o numero de linhas da tabela. É semelhante ao Record.Count Como usar: <% Set tabela = conn.execute("select * from tab") Dim total total = tabela.GetRows Response.Write "A tabela possui " & CDbl(UBound(total, 2)) & "linhas." set tabela = nothing %> []'s :ph34r:

coloque antes do nome do do form (enque): document fica assim: <form name="enque" action="java script: abrejanela('enquete_exe.asp?R1='document.enque.R1.value , '_blank' , 'top=100,left=150,width=320,height=320, status=no,resizable=yes,scrollbars=no,toolbar=no');" method="GET"> ve ai se funciona, :ph34r:

:ph34r: Mano, quando eu quero verificar se uma sessao expirou eu utilizo um If End IF para tal. Talvez você já tenha feito isso, mas se não fez, fica ai o toque. If Session("nome da sessao") = False then Response.Redirect("pagina de login.asp") End if Coloque esse codigo nas paginas que o usuario precisa estar logado para navegar. Uma vez eu tentei isso no global tb e não funcionou igual so seu caso tb. Bem, de qqer forma, se não funcionar, dá o toque ai.

1. Pede para ele digitar em uma caixa de formulario o email dele. 2. Faça a verificacao para ver se o email que ele digtou existe no banco de dados. Por exemplo: Set tab = conexao.Execute("Select Nome,Email,Senha From Tabela Where Email = '" & Request("email") & "'") Vale lembrar que na string Request("email"), o campo email deve ser substituido pelo nome que você deu ao campo de email no seu formulario. 3. Caso o email informado exista no banco de dados, execute a rotina abaixo: Rotina para envio de email utilizando o ASPEmail <% On Error Resume Next Dim mensagem, nome, emaildestino nome = tab("nome") 'recuperado da tabela atravez da consulta utilizada acima emaildestino = Request("email") 'recuperado do formulario senha = tab("senha") 'recuperado da tabela atravez da consulta utilizada acima mensagem = "Prezado(a)" & nome & " .<p>" & vbcrlf & vbcrlf mensagem = mensagem & "Conforme solicitação, estamos enviado seus dados para login.<p>" & vbcrlf & chr(10) & chr(13) mensagem = mensagem & " Nome de usuário:" & nome & "<br>" mensagem = mensagem & " Login:" & senha & "<br>" mensagem = mensagem & "_____________________________<br>" mensagem = mensagem & "www.seusite.com.br" Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.FromName = "Suporte Nome do Seu Site" eObjMail.FromAddress = "emailr@seusite.com.br" eObjMail.RemoteHost = "smtp.seusite.com.br" 'sem o www eObjMail.AddRecipient "", emaildestino eObjMail.Subject = "Dados para Login" eObjMail.ContentType = "text/html" eObjMail.BodyText = mensagem eObjMail.SendMail if erros <> 0 Then Response.Redirect("pagina de erro.asp") else Response.Redirect("pagina de confirmacao do email.asp") end if Set eObjMail = nothing %> Utilizando os dados acima, você poderá fazer uma secao em seu site para os usuarios que esqueceram a sua senha. é isso []'s :ph34r:

porq você não coloca um codigo pra sessao não expirar? Assim ela só vai expirar mesmo quando o usuario sair do seu site ou fechar o browser. Isso resolveria seu problema? :ph34r:

faz isso: na tag input do formulario, faz o seguinte: a tag é assim: <input type="submit" name="submit" value=Enviar> troque para essa <input type="image" src="caminho da imagem"> com essa tag em cima, no lugar do botao vai aparecer a imagem que você escolher :ph34r:

Concordo.... Ae galera, vamos responder os topicos com exemplos, né? Bem, eu sempre que posso faço isso. :ph34r:

tambem não entendi......... to messenger hj, 20/05, o dia todo. se quiser entra ai e a gente troca uma ideia washibano@hotmail.com :ph34r:

assino em baixo....... :ph34r:

cara to no messenger de 08 as 17 hj... entra em contato comigo que a gente faz um online... washibano@hotmail.com :ph34r:

pelo menos no access, esse erro ocorre quando você manda por exemplo: dim variavel as database ... variavel.execute("SELECT... FROM...") aí da esse erro não sei se ajudou muito, prq sem ver o codigo fica dificil, mas é uma luz... :ph34r:

Parabéns....... você brilhou....... num q a função funciona mesmo....... :ph34r:

quer erro está dando? poe ele aqui q eu do uma olhada :ph34r:

entre em contato comigo no email que eu te mando um codigo pronto todo comentado, ok? []'s washibano@hotmail.com :ph34r:

ai, na fique muito ligado nessa questao de preço, pois nem sempre o mais barato é o melhor... se quiser, posso desenvolver este sistema, como outras pessoas que participam deste forum tb poderiam. pode entrar em contato comigo pelo meu email ou pelo messenger....... o email do messenger é washibano@hotmail.com fico on-line todos os dias de 08:00 às 14:00 []'s :ph34r:

na hora de fazer o upload, utilize o saveas do proprio upload. exemplo: suponha que você esteja enviando várias fotos.... Mas se for apenas uma pode utilizar o exemplo abaixo também, beleza? <% Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "gif,jpg,jpeg,zip" 'tipo de arquivos permitidos para upload mySmartUpload.MaxFileSize = 102400 'tamanho máximo de cada arquivo mySmartUpload.Upload For each file In mySmartUpload.Files If not file.IsMissing Then file.SaveAs("/upload/" & file.FileName) 'aqui você escolhe o nome que vai dar para o arquivo End If Next If Err.number>0 Then With response .Write("<p><br><br>Um dos seguintes erros aconteceu:<br>") .Write(" você tentou enviar um arquivo cuja terminação não é ") .write("zip,txt, ou doc.<br>") .write("Ou então o arquivo que você tentou enviar é maior que 100kb.<br>") .write("Por favor tente de novo. ") End with Response.end End If Response.Write "O arquivo foi enviado para o servidor com sucesso para o servidor." %> no mais é só isso []'s :ph34r:

não sei se eu entendi direito, mas se não for isso que quer dá um exemplo melhor, ok? você pode utilizar um link para a página de onde você pegou o valor do querystring e passá-lo novamente. ex: suponha que sua querystring seja: pagina_1.asp?nome=fulano depois com esse valor você vai para a pagina_2.asp, ok? para voltar a pagina inicial, apenas informe de novo o valor da query <a href="pagina_1.asp?nome=fulano">Voltar</a> bem, se não for isso manda um exemplo com código que a gente te ajuda. []'s :ph34r:

em primeiro lugar, bem-vinda ao forum....... com certeza não tem lugr melhor para você esclarecer suas dúvidas. bom, para você utilizar este recurso de enviar emails do seu site, antes você precisa verificar qual é e se o servidor onde estão suas páginas asp, oferece suporte para envio de emails. Meio confuso, né? Não........ eu explico: para que o envio de emails funcione o servidor precisa ter um componente de email disponivel para voce. Este componente se faz necessário para que seja enviado o email, caso contrário ocorrerá um erro. São exemplos de componentes de email: CDONTS, ASPMAIL, ASPEMAIL,JMAIL e por ai a fora. De posse desta informação, podemos disponibilizar pra voce um exemplo de envio de email, ok? Veja se descobre qual é o componente, e coloque o nome dele aqui que poderemos te dar uma ajuda mais específica... No mais, []'s :ph34r:

bem cara, o meu email vai junto com minha assinatura, mas de qualquer forma tá aqui ele de novo... washibano@bol.com.br :ph34r:

Eli@ne, veja uma coisa no seu codigo: SQLOfertos = " SELECT * FROM Prodotos WHERE " For IOfertas = 0 To MaxOfertasPagina - 2 SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(IOfertas)) & ") OR " Next SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(MaxOfertasPagina - 1)) & ")" Set RSOfertas = Conn.Execute(SQLOfertas) você notou que a instrucao se chama SQLOfertos e a outra se chama SQLOfertas? pode ser isto que não está funcionando. dá uma olhadinha e depois diga se funcionou....beleza? []'s :ph34r:

cara é muito fácil........ coloque o codigo abaixo entre as tags <head> dasua pagina: <script language="javascript"> <!-- function redirecionar(){ window.location = 'http://enderecodapagina.htm'; } setTimeout("redirecionar()", 5000) --> </script> simples né????????? :ph34r:

você olhou se seu sistema está entre os descritos que podem utilizar o .Net Framework? ele não funciona com todos da familia windows, não...... :ph34r:

que mané.......esquci de logar antes de responder a mensagem acima....... :P