Ir para conteúdo

chocomilki

Members
  • Total de itens

    13
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre chocomilki

  1. Mostrar somente aulas do Mê atual

    Gustavo, Mas este trecho é o que pesquisa o nome do Aluno... strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" &TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;"
  2. Mostrar somente aulas do Mê atual

    Olha como ficou ele completo <% If strSearch <> "" Then strDBPath = Server.MapPath("Noticias.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient varMesAtual = month(date()) strSQL = "Select * from Aulas where MONTH(data)=2 and year(data)=2018 and nome Like 'Kleber*'" strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %> E mostra mês anterior tb.. rssss
  3. Mostrar somente aulas do Mê atual

    Agora não retornou erro , porém mostra independe se é mês Fevereiro , Janeiro etc.. rsssss varMesAtual = month(date()) strSQL = "Select * from Aulas where MONTH(data)="& varMesAtual & " and nome Like 'Kleber*'"
  4. Mostrar somente aulas do Mê atual

    strSQL = "Select * from Aulas where MONTH(data)="& varMesAtual & " and nome='*'
  5. Mostrar somente aulas do Mê atual

    campo aluno é NOME ..
  6. Mostrar somente aulas do Mê atual

    Gustavo Acrescentei o parâmetro retornou erro interno.. O servidor encontrou um erro interno ou configuração incorreta e não pôde completar sua solicitação. Entre em contato com o administrador do servidor para informar a hora em que ocorreu o erro e de qualquer coisa que você tenha feito que possa ter causado o erro. Mais informações sobre esse erro podem estar disponíveis no registro de erros do servidor.
  7. Mostrar somente aulas do Mê atual

    Ola Gustavo, Então na verdade ele está mostrando pra mim todos que estão no Mês Atual , mas o problema não é esse é que após incluir o código qualquer nome que digite na minha busca ele retorna todos os nomes e não o que eu digito.. ou seja se Digitar Lucas ele deveria mostrar todas as aulas de Lucas no mês de Fevereiro.. e está mostrando todos os Alunos do Mês de Fevereiro Abs
  8. Mostrar somente aulas do Mê atual

    Olá, Coloquei desta forma e não retornou erro: strSQL = "Select * from Aulas where MONTH(data)='"&varMesAtual&"'" Porém ele mostra independente do nome que digitar na pesquisa ela mostra todos que estão cadastrados dentro da tabela no mês de fevereiro.. e não o nome de quem eu pesquisar.... Att
  9. Mostrar somente aulas do Mê atual

    Olá, Retorna o seguinte erro: Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'MONTH(ven)=&varMesAtual'. Abs
  10. Mostrar somente aulas do Mê atual

    Olá Amigos, Estou com uma dificuldade em minha consulta.. preciso que ao informar o nome do Professor ela me mostre somente as aulas que ele deu no atual mês , mas ele mostra todos.. Tentei usar a função abaixo sem sucesso : <% varMesAtual = month(date()) strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual Set ObjRs = cnnSearch.Execute(strSQL) %> Segue o código completo: <% Dim strURL Dim cnnSearch Dim rstSearch Dim strDBPath Dim strSQL Dim strSearch inicio = Timer '#Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "ñ" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %> <title>WEB ADMIN</title> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <body bgcolor="#FFFFFF"> <link rel="stylesheet" media="screen" href="style.css" /> <table width="1" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2"> <tr> <td bgcolor="#FFFFFF" width="812"> <table width="515" border="0" cellpadding="2" style="border-collapse: collapse" height="1"> <tr> <td bgcolor="#FFFFFF" height="4" colspan="2" width="667"> <p align="left"> <span style="font-size: 14pt">Relação de&nbsp; Aulas por Professor</span></td> </tr> <tr> <td bgcolor="#FFFFFF" valign="middle" height="1" width="569"> <form action="<%= strURL %>" method="get"> <div align="left"> <b><font face="Arial" style="font-size: 8pt">&nbsp;</font></b><b><font face="Arial" style="font-size: 8pt"><br> <br> &nbsp;Informe o Professor </font> </b> <span style="font-size: 11pt; font-weight: 400"><input type="text" placeholder="Categoria" size="55" name="search" value="<%= strSearch %>"></span><span style="font-size: 8pt"><font face="Arial" color="#008000"> </font> </span> <font face="Arial" color="#008000"> <input name="submit" type="submit" value="busca" style="font-size: 8 pt; font-weight: bold; background-color: #00699C; color:#FFFFFF; " /><span style="font-size: 8pt"> </span> </font> </div> </form> <p align="center"> <font face="Arial" style="font-size: 8pt"> <% If strSearch <> "" Then strDBPath = Server.MapPath("Noticias.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient varMesAtual = month(date()) strSQL = "Select * from Aulas where MONTH(ven)="& varMesAtual Set ObjRs = cnnSearch.Execute(strSQL) strSQL = "SELECT nome,data,horario,unidade,ven,id " _ & "FROM Aulas " _ & "WHERE nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR ven LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY id;" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %> </font> </p></td> <td bgcolor="#FFFFFF" valign="top" height="1" width="94"> <p align="center"> <font face="Arial" style="font-size: 8pt"><a title="Imprimir" href="a"> <script language="JavaScript1.2"> <!-- function DoPrinting(){ if (!window.print){ alert("Use o Netscape ou Internet Explorer \n nas versões 4.0 ou superior!") return } window.print() } //--> </script> </a> </font></td> </tr> </table> <p align="left"> <font face="Century Gothic" style="font-size: 8pt"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#6E9F4D">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color="#1D2447">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( Foram encontradas&nbsp;<%=intContador%> ocorrências )</font></b></font></p> <div align="center" style="width: 502; height: 246"> <table width="690" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" height="1"> <tr> <th width="39" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"><strong> <font face="Arial" style="font-size: 8pt" color="#FFFFFF">Cod</font></strong></th> <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"> <strong><font color="#FFFFFF"><span style="font-size: 8pt">Nome do Professor</span></font></strong></th> <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"> <strong><font color="#FFFFFF"><span style="font-size: 8pt">Data</span></font></strong></th> <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"> <strong><font color="#FFFFFF"><span style="font-size: 8pt">Horário</span></font></strong></th> <th width="627" bgcolor="#525252" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21"> <strong><font color="#FFFFFF"><span style="font-size: 8pt">Núcleo</span></font></strong></th> <th width="184" bgcolor="#FFFFFF" align="left" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#99B5C0" height="21">&nbsp;</th> </tr> <% Do While Not rstSearch.EOF %><font face="Century Gothic" style="font-size: 8pt"> </font> <tr> <% id = Trim(rstSearch.Fields("id")) Response.Write "<TR style='cursor=hand;' id="& id&" onclick=""consultarClick('"&id&"')""; class='"&fundo&"' " Response.Write " onmouseover=""this.className='inputMouse';"" " Response.Write " onmouseout=""this.className='"&fundo&"';"">" %><font face="Century Gothic" style="font-size: 8pt"> </font> <td width="39" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("id").Value %></font></td> <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("nome").Value %></font></td> <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("ven").Value %></font></td> <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("horario").Value %></font></td> <td width="627" align="left" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" bordercolor="#6E9F4D" bgcolor="#FFFFFF" height="1"><font size="1" face="Arial"><%= rstSearch.Fields("unidade").Value %></font></td> <td width="184" align="left" style="border-style: none; border-width: medium; " bordercolor="#6E9F4D" height="1"> &nbsp;</td> </tr> <% rstSearch.MoveNext Loop %><font face="Century Gothic" style="font-size: 8pt"> </font> </table> <p align="left"> <font face="Arial" style="font-size: 8pt"> <input type="image" src="ico_imprimir.jpg" border="0" OnClick="javascript:DoPrinting()" name="I1" alt="Imprimir"></font><p align="left"><b> <font face="Century Gothic" style="font-size: 8pt" color="#1D2447">Sua busca foi processada em <%response.write FormatNumber( Timer - inicio, 2 )%> segundos.</font><font face="Century Gothic" style="font-size: 8pt" color="#6E9F4D"><br> </font></b> <font face="Century Gothic" style="font-size: 8pt"> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %> </font> </div></td> </tr> </table> <p align="left">&nbsp;</p>
  11. Pegar o Titulo da Noticia e mostrar no TITLE da Página

    Coloquei como mencionou , mas está dano erro na linha Na linha cita está o campo <%=p1%> que é o campo da matéria da notícia.. O arquivo titulo.asp ficou assim : <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nova pagina 1</title> </head> <body> <%var1 = LCase(Request.ServerVariables("URL") ) var2 = LCase(Request.ServerVariables("QUERY_STRING")) select case var1 case "/" response.write ("p1") select case var2 case "id=5" response.write ("titulo") case else response.write("Página do portal ainda sem título, cria o case desta página webmaster :-) ") %> </body> </html>
  12. Bom Dia Amigos, Gostaria da ajuda de vocês como eu faço para que seja exibida o titulo da noticia ao invés de mostra o nome do site no <TITLE>..:: NOME DO MEU SITE ::.</TITLE> <TITLE>..:: NOME DO MEU SITE ::.</TITLE> Obrigado
  13. Botão Compartilhar do Facebook

    Ola amigos, Estou emplementando meu site de noticias e ao colocar o botão compartilhar do facebook surgiu uma dúvida, até consigo compartilhar a noticia porem ao clicar pra compartilhar ao abrir a janela do Facebook ele pega as informações da página inicial do meu site .. mas gostaria de que ao clicar ele mostrasse os dados da noticia selecionada.... Meu codigo está assim: <a href="javascript: void(0);" onclick="window.open('http://www.facebook.com/sharer.php?u=http://meusite.com.br/detalhes_noticias3.asp?id=<%=id%>&<%=request.QueryString("materia")%>','ventanacompartir', 'toolbar=0, status=0, width=650, height=450');">Compartilhar no Facebook</a> Apos compartilhar ele buscar corretamente o link da noticia.. porém minha duvida é ao mostra a janela do facebook antes de compartilhar ele mostre os dados da noticia na tela ao inves da pagina inicial Obrigado
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

Este projeto é mantido e patrocinado pelas empresas:
Hospedado por: