Ir para conteúdo
Fórum Script Brasil

1980coelho

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    69

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que 1980coelho postou

  1. 1980coelho
    não rolou.. tipo consigo fazer o sort order usando 2 imagens diferentes ou dois links ae rola na boa.. agora não estou sabendo fazer o mesmo link alternar entre uma opcao e outra.. segue o meu codigo abaixo.. strSortField = Request.QueryString("field") Select Case LCase(strSortField) Case "name", "category" strSortField = strSortField Case Else strSortField = "name" End Select Select Case LCase(Request.QueryString("order")) Case "asc" strSortOrder = "desc" Case Else strSortOrder = "asc" End Select strSQL = "SELECT *" strSQL = strSQL & " FROM tblGames" strSQL = strSQL & " WHERE category =" & strID strSQL = strSQL & " ORDER BY [" & strSortField & "] " & strSortOrder & ";" Set rsGames = Server.CreateObject("ADODB.Recordset") rsGames.Open strSQL, adoCon --- 'GameLink Response.Write ("<tr><td align='right'>") Response.Write ("<font size='1'>") Response.Write ("<a href='admin.asp?mode=selected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=name&order=asc'>") Response.Write ("<img src='images/sortASC.png' width='10px' height='10px'>") Response.Write ("</a>") Response.Write ("&nbsp;&nbsp;") Response.Write ("<a href='admin.asp?mode=selected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=name&order=desc'>") Response.Write ("<img src='images/sortDESC.png' width='10px' height='10px'>") Response.Write ("</font>") Response.Write ("</a>") ---
  2. 1980coelho
    duvida.. se o SELECT esta contabilizando uma area que so tem numeros de valor 0 e 1, a pagina esta me retornando erro quando conta valores na tabela que so tem valores de 0 na conta, o que faco? estou tentando contar quantos "status" são ativos=1 ou inativos=0, o problema e quando são somados so valores de 0. RESOLUCAO: strSQL = "SELECT count(status) As CountOn" strSQL = strSQL & " FROM tblGames" strSQL = strSQL & " WHERE status=1 And category="& rsCategory("ID") strSQL = strSQL & " GROUP BY category =" & rsCategory("ID") Set rsCountStatus1 = Server.CreateObject("ADODB.Recordset") rsCountStatus1.Open strSQL, adoCon2play * a linha sublinhada era o erro.. so removi ela e deu certo, descobri depois de muitos teste e quebrar a cabeca que quando se agrupa o elemento ao contabilizar retorna erro..
  3. 1980coelho
    estou com o mesmo problema.. uma pagina ue estou fazendo sobre videogames, me lista o top10 games e ao clicar em um dos 10 da lista que me vem as informacoes do ID correspondente da lista queria avancar para o proximo ou voltar ao anterior e ficar entre os 10 itens somente.. não estou conseguindo, pelo que estou vendo paginacao que falam e diferente se pega todos itens da tabela, nesse caso pelo que entendo e tipo so avancar ou retroceder pelo ID chamado como foi citado acima, +1 ou -1 no ID..
  4. 1980coelho

    CDOSYS autenticado

    pergunta respondeu ao Fabian Kulmann de 1980coelho em ASP

    bom vou postar o codico da pagina completa que uso para senha perdida, arquivo: lostpassword.asp quanquer duvida de string ou variavel eu ajudo.. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title></title> <!--#include file="adm_info.inc"--> <!--#include file="md5.asp"--> <!--#include file="settings.asp"--> <style TYPE="text/css"> body { background: url(images/_login.png) no-repeat; background-size: 100%; } </style> &lt;script language="javascript"> function TheFormCheck() { if (document.Login.txtUserName.value=="") { alert("Usuário está em branco. Por favor, digite."); document.Login.txtUserName.focus(); return false; } } </script> </head><body> <center> <div style="border:0px solid; text-align:left; width:527px; height:246px; z-index:1; margin-top:120px; margin-left:0px;"> <div style="position:absolute; border:0px solid; width:100px; height:100px; z-index:2; margin-top:30px; margin-left:405px; background-image:url(images/qr.png); background-repeat:no-repeat; background-size:100%;"> </div> <div style="position:absolute; border:0px solid; width:360px; height:203px; z-index:2; margin-top:20px; margin-left:20px;"> <table border="0"> <tr><td> <b>Recuperar Senha </b> </td></tr> </table> <p> <table border="0"> <form name="login" method="post" action="password.asp?mode=get" onSubmit="return TheFormCheck()"> <tr><td> Usuário: </td><td><input type='text' name='txtUserName'> </td></tr> <tr><td> <img src='images/dot.png' width="1px" height="23px"> </td></tr> <tr><td> <input type="image" src="images/forward.png" name="Submit" value="" alt=""> </td></tr> </form> </table> <p> <table border="0"> <tr><td> <% Function RandomPW(myLength) Const minLength = 6 Const maxLength = 20 Dim X, Y, strPW If myLength = 0 Then Randomize myLength = Int((maxLength * Rnd) + minLength) End If For X = 1 To myLength Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase Select Case Y Case 1 Randomize strPW = strPW & CHR(Int((9 * Rnd) + 48)) Case 2 Randomize strPW = strPW & CHR(Int((25 * Rnd) + 65)) Case 3 Randomize strPW = strPW & CHR(Int((25 * Rnd) + 97)) End Select Next RandomPW = strPW End Function If Request.querystring("mode") = "get" Then strUserName = Replace(Request.Form("txtUserName"), "'", "''") Set rsGetPassword = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT [username], [password], FROM tblUsers where username = '" & strUserName & "'" rsGetPassword.Open strSQL, adoCon If rsGetPassword.EOF Then Response.Write ("<table border=1>") Response.Write ("<tr><td>") Response.Write ("<font color=red>Usuário inexistente.</font>") Response.Write ("</td></tr>") Response.Write ("</table>") Else strEmail = rsGetPassword("Email") strPassword = RandomPW(0) htmlBody = "Email enviado por ter solicitado a op&ccedil;&atilde;o ''<b>Recuperar Senha</b>'', se n&atilde;o solicitou esta, entre em contato com o administrador do site." htmlBody = htmlBody & "<br><br>" htmlBody = htmlBody & "Senha nova: <font color='red'>" & strPassword htmlBody = htmlBody & "</font>" htmlBody = htmlBody & "<br><br>" htmlBody = htmlBody & "Voc&ecirc; pode, alterar essa senha atrav&eacute;s da p&aacute;gina, &aacute;rea de administra&ccedil;&atilde;o do site. Se tiver alguma dificuldade entre em contato." htmlBody = htmlBody & "<br><br>" htmlBody = htmlBody & "Obrigado," htmlBody = htmlBody & "<br>" htmlBody = htmlBody & vSiteName htmlBody = htmlBody & "<br><br>" htmlBody = htmlBody & "---" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set Flds = objCDOSYSCon.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = vEmailUsername Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = vEmailPassword Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vEmailServer Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = vEmailPort Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Flds.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = vSiteEmail objCDOSYSMail.To = rsGetPassword("email") objCDOSYSMail.Subject = "Solicitação de senha, site: " & vSiteName objCDOSYSMail.HTMLBody = htmlBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing strEPassword = md5(strPassword) strUpdateSQL = "UPDATE tblUsers SET tblUsers.password='" & strEPassword & "' WHERE username ='" & strUserName & "'" adoCon.Execute(strUpdateSQL) Set rsGetPassword = Nothing Set adoCon = Nothing Response.Write ("<table border=1>") Response.Write ("<tr><td>") Response.Write ("Senha enviada ao Email do seu perfil.") Response.Write ("</td></tr>") Response.Write ("<tr><td>") Response.Write ("<a href=login.asp><img src='images/back.png' border='0' alt=''></a>") Response.Write ("</td></tr>") Response.Write ("</table>") End If End If %> </td></tr> </table> </div> </div> </center> </body> </html>
  5. 1980coelho
    não rolou.. ele aciona para uma opcao e ao clicar novamente não funciona..
  6. 1980coelho

    (resolvido) Paginacao..

    pergunta respondeu ao 1980coelho de 1980coelho em ASP

    paginacao pelo que entendo você pega todos resultados de uma tabela e indica quantos resultados por pagina mostrar.. estou querendo avancar para o proximo item ou voltar ao anterior somente sem a paginacao.. ex: tenho 5 itens; 1- 2- 3- 4- 5- ao clicar em um link me aprece o link id 3.. quero avancar ao 4 ou voltar ao 2 somente.. sera que consegui explicar? abraco..
  7. 1980coelho
    opa.. consigo montar a paginacao perfeitamente.. sendo que ela seleciona todo o conteudo da coluna e faz a paginacao deles.. duvida quando fecho uma string determinada apartir dela tenho como passar adiante ou retornar para o proximo registro? strID = Clng(Request.Querystring("ID")) Set rsViewTop10game = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT [iD], [category], [gname], [ginfo] FROM tblGames WHERE ID =" & strID não fechando a string tenho a paginacao por completo so que ela me vai para o primeiro item do banco. o problema e que tenho categorias diferentes na mesma coluna e queria navegar entre a opcao selecionada.. WHERE ID =" & strID aguardo contato..
  8. 1980coelho
    sim testei.. ele coloca ao clicar na ordem crescente por exemplo ao reclicar não vai para a ordem contraria.. %> <span style='color:#000;' onMouseOver='this.style.textDecoration="underline"' onMouseOut='this.style.textDecoration="none"'> <% Response.Write ("<a href='users.asp?mode=listgamesselected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=gname&sort=asc'>") %> LINK </a> </span> <% pensei em uma alternativa mais daria muito trabalho.. criar um registro no banco de dados tipo 1 ou 0 ae daria certo mais teria que fazer isso como uma nova entrada para cada coluna.. tem que haver alguma maneira de fazer isso mais simples..
  9. 1980coelho
    If Request.Querystring("mode") = "NOME" then alguma solucao para manter o Request.Querystring anterior? quando chamo do primeiro para o segundo ele apaga os dados do primeiro e so apareece os dados do segundo.. queria manter o anterior junto na tela.. aguardo contato.. RESOLUCAO: para evitar o evento acima fiz as conexoes por metodo IFRAME.
  10. 1980coelho
    duvida ao fazer update de dados me redireciona pra pagina exata referente ao ID que estava antes, ao fazer o mesmo para deletar me volta a pagina com erro porem apaga o registro sei que o erro esta em não achar o ID referente da strID, o mesmo me diz que a conexao esta fechada ou não existe, não entendi porque funciona perfeitamente no UPDATE e no mdo DELETE não acha o caminho.. alguém sabe? ex: do que funciona sem erro If Request.Querystring("mode") = "suspendgamestop10" Then strID = CLng(Request.Querystring("ID")) strSQL = "UPDATE tblGames SET tblGames.gtop10= '0' WHERE ID =" & strID adoCon2play.Execute(strSQL) strCatSQL = "SELECT [iD], [category] FROM tblGames WHERE ID =" & strID Set rsCategory = Server.CreateObject("ADODB.Recordset") rsCategory.Open strCatSQL, adoCon2play %> <meta http-equiv="refresh" content="0;URL=users.asp?mode=listgamesselected&ID=<%= rsCategory("category") %>" > <% Set rsCategory = Nothing Set adoCon2play = Nothing End If -- ex: do que funciona com o erro If Request.Querystring("mode") = "deletegames" Then strID = CLng(Request.Querystring("ID")) strSQL = "DELETE FROM tblGames WHERE ID =" & strID adoCon2play.Execute(strSQL) strCatSQL = "SELECT [iD], [category] FROM tblGames WHERE ID =" & strID Set rsCategory = Server.CreateObject("ADODB.Recordset") rsCategory.Open strCatSQL, adoCon2play %> <meta http-equiv="refresh" content="0;URL=users.asp?mode=listgamesselected&ID=<%= rsCategory("category") %>" > <% Set rsCategory = Nothing Set adoCon2play = Nothing End If RESOLUCAO: usei o comando Request.ServerVariables("HTTP_REFERER")
  11. 1980coelho
    caiu na mesma não atualiza um unico link.. queria que no link por ex. SORT ele coloque a coluna em ordem ASC e ao clikar novamente no mesmo link mude a ordem para DESC. consigo fazer isso mais com um link para cada um, entendeu?
  12. 1980coelho
    já tentou incluir as paginas que são chamadas em uma unica .asp e as chamr via Request.Querystring("mode") ?
  13. 1980coelho

    imagem no access

    pergunta respondeu ao snieto de 1980coelho em ASP

    consigo mandar o arquivo para o banco de dados como binary data, consultar e apagar mais não sei o metodo para sobrescrever o arquivo, me diga o que pretende fazer que te ajudo.. OBS: em metodo POST para enviar o arquivo o padrão maximo e de 200kb o arquivo, você tera que alterar a opcao dentro do IIS para aumentar esse padrão.
  14. 1980coelho
    alguma maneira de dar o history.back() e em seguida refresh ou reload page? ou body onload="refresh()" ser uma unca vez em vez de dar loop por tempo determinado. ou alguma funcao que simule presionar uma vez a tecla f5 ? -- estou com o seguinte problema uma listagem de videogames que me linka com a listgem de jogos correspondentes ao editar, deletar ou ativar os jogos da lista na volta para o link da pagina não consigo determinar que volte a mesma pagina correspondente ao ID da listagem do videogae correspondente, então voltar o historico e dar reload, mostraria o status alterado e resolveria. aguado ajuda.. RESOLUCAO: usei o comando Request.ServerVariables("HTTP_REFERER")
  15. 1980coelho
    não funcionou.. consigo fazer a coluna ordernar por ASC ou DESC com uma imagem correspondente a cada uma das duas opcoes, queria ao clicar em um link texto elas alternarem de uma para a outra, entendeu?
  16. 1980coelho
    If Request.QueryString("order") = "sort" then strSortOrder = "desc" Else strSortOrder = "asc" End If duvida: como faco para quando re chamar o " Request.QueryString("order") = "sort" then " ele inverter a ordem para: strSortOrder = "asc" Else strSortOrder = "desc" ou melhor dizendo como reconhecer se for uma opcao alterar para a outra e vice-versa? --- aguado ajuda. RESOLUCAO: so adicionei isso ao codigo para criar o link: If strSortOrder = "asc" then Response.Write ("<a href='admin.asp?mode=listgamesselected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=gname&order=desc'>") %> LINK ASC <% End If If strSortOrder = "desc" then Response.Write ("<a href='admin.asp?mode=listgamesselected&ID=") Response.Write (rsCategory("ID")) Response.Write ("&field=gname&order=asc'>") %> LINK DESC <% End If ---
  17. 1980coelho

    CDOSYS autenticado

    pergunta respondeu ao Fabian Kulmann de 1980coelho em ASP

    vou lhe enviar um exemplo funcional usado por mim: Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set Flds = objCDOSYSCon.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = [i]1[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = [i]EmailUsername[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [i]EmailPassword [/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = [i]EmailServer[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = [i]EmailPort[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = [i]2[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = [i]60[/i] Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = [i]False[/i] Flds.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = [i]SiteEmail[/i] objCDOSYSMail.To = [i]Email[/i] objCDOSYSMail.Subject = [i]Asunto[/i] objCDOSYSMail.HTMLBody = [i]htmlBody[/i] objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing --- Aguardo contato..
  18. 1980coelho
    opa, rapidamente vendo acho que vejo um erro claro.. tente dando nome da string diferente do nome do request exemplo abaixo: strCNPJ = Replace(Request.Form("txtCNPJ") Response.Write ("<b>CNPJ: </b></td><td><input type='text' name='txtCNPJ'>") aguardo contato para saber se resolveu..
  19. 1980coelho
    opa.. estou com uma pequena duvida, que se tornou um grande problema no desenvolvimento do meu site, vou tentar explicar a questao: tenho na pagina _top10.asp 3 seguimentos; 1 - listagem de videogames. 2 - listagem top10 dos jogos. 3 - informacoes e detalhes dos jogos. então a pagina comeca com a 1 - listagem dos videogames e no link de cada um deles chama a categoria correspondente 2 - listagem top10 dos jogos: Response.Write ("<a href='_top10.asp?mode=Top10glist&ID=") Response.Write (rsCategory("ID")) Response.Write ("'>") Response.Write (rsCategory("CategoryName")) Response.Write ("</a>") ao chamar a categoria: 2 - listagem top10 dos jogos If Request.Querystring("mode") = "Top10glist" then strID = Clng(Request.Querystring("ID")) .. que chama a ultima categoria Response.Write ("<a href='_top10.asp?mode=Top10game&ID=") ao chamar a categoria: 3 - informacoes e detalhes dos jogos If Request.Querystring("mode") = "Top10game" then strID = Clng(Request.Querystring("ID")) .. --- Beleza a tudo funcionando perfeitamente, o X da questao e; ao carregar a pagina a listagem 1 aparece, ao clicar nela a listagem 2 aparece e quando se clica no link desta listagem para aparecer as informacoes do item 3, elas aparecem porem o coteudo da listagem 2 desaparece. (como faco para que as informacoes fiquem matidas na pagina e não sobrescreva desaparecendo a anterior?) espero que tenham entendido e aguardo ajuda. RESOLUCAO: usei IFRAMES
×
×
  • Criar Novo...