Jump to content
Fórum Script Brasil

nadia_xidea

Membros
  • Posts

    19
  • Joined

  • Last visited

About nadia_xidea

nadia_xidea's Achievements

0

Reputation

  1. Oi pessoal, estou precisando da ajuda de vocês... Eu tenho um menu de um site, aonde a categoria que aparece no menu e as subcategorias vem de uma DB em Access... Minha DB tem duas tabelas: Tabela CATEGORIAS >> campos: ID, titulo, link Tabela SUBCATEGORIAS >> campos: ID, categoria, titulo, link O erro que está aprecendo é este: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'subcategorias' /nr/menu/menu2.asp, line 48 Na linha 48 eu tenho isso: response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA Podem me ajudar neste código que estou tentando montar... O que eu quero é chamar no menu que aparece na página asp para cada opção cadastrada no menu, o link cadastrado para aquela opção... Veja abaixo código completo da página: <html> <head> <title>Menu Suspenso</title> <style type="text/css"> .estilo1{ font-family: Arial; font-size: 12px; background: whitesmoke; color: black; } .estilo2{ font-family: Arial; font-size: 12px; background: gray; color: white; } </style> </head> <body> <% Dim StrCon, objCon, ComandoSQL, objRS, objRS2 StrCon = "Data Source=C:\Inetpub\wwwroot\nr\Menu\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open StrCon strSQL = "SELECT titulo.categorias, subcategorias.titulo " strSQL = strSQL & "FROM categorias " strSQL = strSQL & "INNER JOIN subcategorias " strSQL = strSQL & "ON categorias.id = subcategorias.categoria " strSQL = strSQL & "ORDER BY Categorias.titulo, subcategorias.categoria" ComandoSQL = " SELECT * FROM categorias ORDER BY titulo ASC" Set objRS = objCon.Execute(ComandoSQL) %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% If Not objRS.EOF Then While Not objRS.EOF titulo="" while not objrs.eof if objrs("titulo")<>titulo then response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?categoria="&objRS("id")&"','_self')"">"&objRS("titulo")&"</span>"'IMPRIME A CATEGORIA titulo=objrs("titulo")' ALTERA O VALOR DE "TITULO" end if response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA objrs.movenext wend %> <tr> <% ComandoSQL = " SELECT * FROM subcategorias WHERE categoria=" & objRS("id") & " ORDER BY titulo ASC" Set objRS2 = objCon.Execute(ComandoSQL) %> <div id="layer_menu_<%=objRS("id")%>" style="position:absolute; z-index:1; display: none" onMouseOut="this.style.display='none'"> <% If Not objRS2.EOF Then %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% While Not objRS2.EOF %> <tr> <td class=estilo1 onMouseOver="this.className='estilo2'" onMouseOut="this.className='estilo1'"> <span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>&subcategoria=<%=objRS2("id")%>','_self')"> <% Response.Write objRS2("titulo") %> </span> </td> </tr> <% objRS2.MoveNext Wend %> </table> <% End If %> </div> <% Set objRS2 = Nothing %> </td> </tr> <% objRS.MoveNext Wend End If %> </table> <% objRS.Close Set objRS = Nothing Set ComandoSQL = Nothing objCon.Close Set objCon = Nothing Set StrCon = Nothing %> </body> </html>
  2. Romero muito obrigada, mas não resolveu o problema... Não carrega nenhum erro e também não exibe as categorias na lista... estou postando o código completo da página. Quem puder ajudar fico grata. <link href="Estilos.css" rel="stylesheet" type="text/css"> <% Function Horario ( Hoje ) Dia = Day(date) mês = Month(date) Ano = Year(date) Hoje = Dia & " / " & mês & " / " & Ano Horario = Hoje End Function Set objCategorias = Server.CreateObject("ADODB.Connection") objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\infoweb\banco\noticias.mdb" objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="778" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="777" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="20"><img src="images/img_topo_01.gif" width="20" height="8"></td> <td width="756"><img src="images/img_topo_02.gif" width="728" height="8"></td> <td width="10"><img src="images/img_topo_03.gif" width="30" height="8"></td> </tr> <tr> <td><img src="images/img_topo_04.gif" width="20" height="90"></td> <td><img src="images/img_topo_05.gif" width="728" height="90"></td> <td><img src="images/img_topo_06.gif" width="30" height="90"></td> </tr> <tr> <td><img src="images/img_topo_07.gif" width="20" height="9"></td> <td><img src="images/img_topo_08.gif" width="728" height="9"></td> <td><img src="images/img_topo_09.gif" width="30" height="9"></td> </tr> </table></td> </tr> <tr> <td><table width="778" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="389"><img src="images/img_topo_10.gif" width="389" height="49"></td> <td width="291"><img src="images/img_topo_11.gif" width="263" height="49"></td> <td width="98"><img src="images/img_topo_12.gif" width="126" height="49"></td> </tr> <tr> <td><img src="images/img_topo_13.gif" width="389" height="25"></td> <td background="images/img_topo_14.gif"><font color="#FFFFFF">Hoje &eacute; dia:</font> <% = Horario ( Hoje ) %> </td> <td><img src="images/img_topo_15.gif" width="126" height="25"></td> </tr> <tr> <td><img src="images/img_topo_16.gif" width="389" height="14"></td> <td><img src="images/img_topo_17.gif" width="263" height="14"></td> <td><img src="images/img_topo_18.gif" width="126" height="14"></td> </tr> </table></td> </tr> <tr> <td><table width="778" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="300"><img src="images/img_topo_20.gif" width="291" height="29"></td> <td width="202"><form name="form1" method="post" action="Busca.asp"> <table width="242" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td> <td width="5">&nbsp;</td> <td width="41"><select name="Categoria" size="1" class="Form120x20"> <% Response.Write "<option selected value='0'>Todas categorias</option>" While Not objCategorias.EOF Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>" objCategorias.MoveNext Wend %> </select></td> <td width="13">&nbsp;</td> <td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td> </tr> </table> </form></td> <td width="164">&nbsp;</td> <td width="112">&nbsp;</td> </tr> </table></td> </tr> </table></td> </tr> </table> </body> </html>
  3. nadia_xidea

    Ajuda Com Select.

    Oi gente, tudo bem. Preciso da ajuda de vocês nesse select, é o seguinte, quando carregar a página do meu site, vai ter um campo de formulário que vai fazer a busca e o outro, aonde abre um menu de lista com todas as categorias que eu quero selecionar pra fazer a busca. Não sei o que acontece que não está pegando as categorias do banco de dados, aparece a lista em branco, apenas escrito todas as categorias. também não dá erro... veja como está a minha conexão com o DB: Set objCategorias = Server.CreateObject("ADODB.Connection") objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\informenet\banco\noticias.mdb" objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC" Aqui embaixo é aonde é os campos do formu para exibir as categorias... <form name="form1" method="post" action="Busca.asp"> <table width="242" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td> <td width="5">&nbsp;</td> <td width="41"><select name="Categoria" size="1" class="Form120x20"> <% Response.Write "<option selected value='0'>Todas categorias</option>" While Not objCategorias.EOF Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>" objCategorias.MoveNext : Wend %> </select></td> <td width="13">&nbsp;</td> <td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td> </tr> </table> </form> Alguém pode me ajudar. Obrigada.
  4. Sim é auto numérico... Ainda não consegui resolver...
  5. Olá Andreia, muito obrigada. Andréi achei aonde está o erro, mas não o compreendi. O erro que acontece nessa linha, IF categoria = 0 Then response.write "<a href=noticia.asp?id="& rsBusca("id") & ">" & rsBusca("titulo") & "</a> ( " & rsBusca("categoria") & " )" Else response.write rsBusca("titulo") End IF está aqui: rsBusca("id") tipo se eu escrevo no lugar de id, data ele carrega a página normal, mas se eu coloco ID dá aquele erro... porque está acontecendo isso será. Na tabela o meu campo chama se ID mesmo... e está em ACCESS... Pode me ajudar. Obrigada.
  6. Oi Andréia, muito obrigada. Montei o código com a sua ajuda, mas estou com este erro: ADODB.Recordset (0x800A0CC1) O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. /nr/Paginação/paginacao2.asp, line 149 Pelo que eu acredito o erro fala que não existem esses campos na DB, mas na DB notícias eu tenho os campos ID / titulo / categoria. O que pode estar ocorrendo?
  7. Andréia me ajuda com esse erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /nr/Paginação/paginacao2.asp, line 149, column 24 response.write"<a href="noticia.asp?id="&rsBusca("id")&">"&rsBusca("titulo") &"</a>" ( " -----------------------^ Do código acima... Na linha 149 eu tenho isso, em vermelho: <% ' novo loop, verificando a página a ser exibida While Not rsBusca.EOF And rsBusca.AbsolutePage = iPageCurrent %> <tr> <td bgcolor="#0099CC"><b><font color="#000333" face="verdana" size="1"> <% IF categoria = 0 Then response.write"<a href="noticia.asp?id="&rsBusca("id")&">"&rsBusca("titulo") &"</a>" ( " response.write rsBusca("categoria") & " )" Else response.write rsBusca("titulo") End IF %
  8. Oi gente, tudo bem. Consegui um sistema de paginação bem legal na web com filtro. Pra quem precisar o código está abaixo... Eu gostaria de saber o que tenho que fazer para criar um link, para sempre que eu clicar no título ir para a página com a notícia completa. <% '******************************************************** '******************************************************** %> <% Option Explicit %> <!-- #include file = "adovbs.inc" --> <% Const PAGE_SIZE = 3 'quantidade de itens na página. 'Declarando as variaveis Dim Conexao ' string para conexão Dim rsBusca ' string do recordset Dim rs Dim rs1 Dim strSQL ' string SQL Dim strSearch ' string para fixar o texto procurado Dim iPageCurrent ' string para Pagina Corrente Dim iPageCount ' string para contar números de paginas do recorset Dim iRecordCount ' string do contador Dim I ' variável de indica a página atual Dim categoria ' variável de indica a categoria escolhida Dim strURL ' variável que indicará o endereço do site strURL = Request.ServerVariables("URL") categoria = request("categoria") ' variável de retorno Sub abre_conexao ' Criando uma conexão com o Banco de Dados Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("noticias.mdb") &";" End sub IF categoria = "" Then categoria = 0 If Request.QueryString("page") = "" Then ' Abertua inicial iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If %> <html> <head> <title>Paginação do Guardião</title> <style> a:hover { text-decoration: underline } a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; text-decoration: none } </style> <!-- Javascript para onChange do ListMenu --> <script LANGUAGE="JavaScript"> function Menu() { document.forms.myform.submit(); } </SCRIPT> </head> <body bgcolor="#ACBbbb" text="#000000" link="#000000" alink="#000000" vlink="#000000"> <!-- MONTANDO O LIST MENU COM AS CATEGORIAS --> <FORM NAME="myform" ACTION="<%=strURL%>" METHOD=POST > <table width="400" cellpadding="1" cellspacing="0" border="0" align="center"> <tr><td><font face="Verdana,Arial" color="#000000" size=1>Categoria:</font> <select name="categoria" onChange="Menu();"> <option value="0" selected>(Todos)</option> <% Call abre_conexao ' Abrindo a conexão criada Set rs = Server.CreateObject("ADODB.RecordSet") ' Selecionando as categorias através de uma instrução SQL rs.Open "SELECT * FROM categorias", conexao While not rs.eof ' Criando um Loop IF Trim(categoria) = Trim(rs("ID")) Then %> <option value="<%=rs("ID")%>" selected ><%=rs("categorias")%></option> <% Else %> <option value="<%=rs("ID")%>"><%=rs("categorias")%></option> <% End IF rs.movenext ' próximo registro Wend rs.close ' fechando o recordset set rs = Nothing ' destruindo o recordset %> </select> </td></tr> </table> </Form> <!-- INÍCIO DA PAGINAÇÃO EM UMA TABELA --> <% IF categoria = 0 Then ' verifica se alguma categoria foi escolhida strSQL = "SELECT * FROM categorias INNER JOIN noticias ON categorias.ID = noticias.categoria " Else ' se foi determina uma condição strSQL = "SELECT * FROM categorias INNER JOIN noticias ON categorias.ID = noticias.categoria WHERE categorias.ID = "& Trim(categoria) & " ORDER BY categoria" End IF ' criando um Recordset referente a categoria escolhida Set rsBusca = Server.CreateObject("ADODB.Recordset") rsBusca.PageSize = PAGE_SIZE rsBusca.CacheSize = PAGE_SIZE ' abre a conexão e executa o recordset rsBusca.Open strSQL, Conexao, adOpenStatic, adLockReadOnly, adCmdText iRecordCount = rsBusca.RecordCount iPageCount = rsBusca.PageCount If iRecordCount = 0 Then ' se nenhum registro for encontrado %> <table width="400" cellpadding="1" cellspacing="0" border="0" align="center"> <tr> <td><font face="Verdana,Arial" color="#000000" size=1> <%="Nenhum registro foi encontrado"%> </font></td> </tr> </table> <% Else ' caso contrário monta a paginação rsBusca.AbsolutePage = iPageCurrent ' determina qual página deve ser exibida %> <table width="400" cellpadding="1" cellspacing="0" border="0" align="center"> <tr> <td><font face="Verdana,Arial" color="#000000" size=1> <% 'faz as contagens dos registros encontrados response.write iRecordCount & " registros encontrados.<br>" response.write "Página " & iPageCurrent & " de " & iPageCount %> </font></td> </tr> <tr><td>&nbsp;</td></tr> </table> <table width="400" cellpadding="1" cellspacing="0" border="0" align="center"> <% ' novo loop, verificando a página a ser exibida While Not rsBusca.EOF And rsBusca.AbsolutePage = iPageCurrent %> <tr> <td bgcolor="#0099CC"><b><font color="#000333" face="verdana" size="1"> <% IF categoria = 0 Then response.write rsBusca("titulo") &" ( " response.write rsBusca("categoria") & " )" Else response.write rsBusca("titulo") End IF %> </font></b></td> </tr> <tr> <td><font color="#000333" face="verdana" size="1"> <% response.write rsBusca("descricao") %> </font></td> </tr> <% rsBusca.MoveNext ' próximo registro Wend %> </table> <table width="400" cellpadding="1" cellspacing="0" border="0" align="center"> <tr><td>&nbsp;</td></tr> <tr> <td><font face="Verdana,Arial" color="#000000" size=1> <% ' informa que página o usuário está da paginação response.write "Páginas: " For I = 1 To iPageCount If I = iPageCurrent Then response.write "[" & I & "]" Else ' criamos um link a categoria escolhida e a ' página a ser mostrada %> <a href="<%= strURL %>?categoria=<%=categoria%>&page=<%= I %>"><%= I %></a> <% End If Next End If %> </font></td></tr> </table> <% rsBusca.Close Set rsBusca = Nothing Conexao.Close Set Conexao = Nothing %> </body> </html>
  9. Marcos RJ muito legal o seu modelo... me fala uma coisa... nesse modelo seu eu vi que em cada guia que eu clico e exibe um texto(conteúdo). Eu posso ao invés do texto chamar outra página? Uso uma include? No topo então de cada página do meu site eu chamo as Abas usando uma include ou iframe...
  10. Oi pessoal,,, gostaria de saber qual a melhor forma de criar essa barra de navegação dos sites, como a barra da Globo.com que está em vários sites afiliados... Ou mesmo a barra da UOL, da IG... Um modelo é este site, www.ifronteira.com Veja a barra da Globo e uma do mesmo site que fica fixo em todas as páginas... isto é include? Obrigada.
  11. Oi dack, bem achei um exemplo pra começar... ele pega a cotação do dolar e exibe na página... ele está funcionando... Eu gostaria de fazer como nessa página da folha: http://www1.folha.uol.com.br/folha/emcimadahora/ Mostrar as 5 últimas notícias, categoria, data e título e a data. Pode me ajudar a criar esta página que vai capturar as notícias da folha de SP? o arquivo é em xmlhttp. Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar. Vejam código abaixo: <% Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP") XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false XMLHttp.send() cotacao = XMLHttp.ResponseText cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo response.Write(cotacoes) dim valores() dim cont, cont_valores for cont = 1 to len(cotacoes) step 1 if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then cont_valores = cont_valores + 1 Redim Preserve valores(cont_valores) valores(cont_valores) = Cstr(str) str = "" else str = str + mid(cotacoes,cont,1) end if next ' Fim Coloca valores em uma Array ' Coloca os valores nas variaveis DOLAR_COMERCIAL_COMPRA = valores(3) DOLAR_COMERCIAL_VENDA = valores(4) DOLAR_COMERCIAL_VARIACAO = valores(5) DOLAR_PARALELO_COMPRA = valores(7) DOLAR_PARALELO_VENDA = valores(8) DOLAR_PARALELO_VARIACAO = valores(9) DOLAR_TURISMO_COMPRA = valores(11) DOLAR_TURISMO_VENDA = valores(12) DOLAR_TURISMO_VARIACAO = valores(13) 'PTAX_COMPRA = valores(15) 'PTAX_VENDA = valores(16) 'PTAX_VARIACAO = valores(17) ' Fim coloca os valores nas variaveis %>
  12. Peguei este código que captura as notícias da Folha On-line e exibe no seu site numa página pelo rss. Eu gostaria de saber de que forma eu faço para exibir apenas a categoria da notícia, a data e o título... Veja neste site como o webmaster fez, só que tá em PHP... www.webradiocidade.com.br Ele fez algo até que eu nunca tinha visto... ele fez de uma forma aonde eu clico no link da notícia e não vai pro site da Folha, abre no site dele mesmo a notícia e aparece os créditos para a folha... Como eu consigo fazer isso usando o meu código abaixo. Veja abaixo o código funcionando que chama as notícias... P.S.: Já fiz busca no site mas não achei nada que ajudasse a fazer isso... <% ' Script ASP Para leitura de arquivos de RSS. url = "http://feeds.folha.uol.com.br/folha/emcimadahora/rss091.xml" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador" ' Criando Objeto XML Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True ' Não validar o arquivo objXML.validateOnParse =false' true ' Retirar espaços objXML.preserveWhiteSpace = false blnLoaded = objXML.Load(url) If Not blnLoaded Then Response.write "Nenhuma notícia na fonte!" Else set objNodeList = objXML.getElementsByTagName("channel") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" html = html &"<tr><td><b>" html = html &objNode2.firstChild.nodevalue html = html &"</b></td></tr>" Case "link" html = html &"<tr><td><a target=_blank href="& objNode2.firstChild.nodevalue &">" html = html & objNode2.firstChild.nodevalue html = html &"</a></td></tr>" Case "description" 'Está desabilitado para exibir apenas os links html = html &"<tr><td><i>" html = html & objNode2.firstChild.nodevalue html = html &"</i></td></tr>" End Select Next Next html = html &"<tr><td><hr></td></tr>" Set objNodeList = objXML.getElementsByTagName("item") For Each objNode In objNodeList For Each objNode2 In objNode.childNodes Select Case objNode2.nodeName Case "title" strTitle = objNode2.firstChild.nodevalue Case "link" strURL = objNode2.firstChild.nodevalue Case "description" strDescription = objNode2.firstChild.nodevalue End Select Next html = html &"<tr><td><li/><b><a target=_blank href="& strURL &">"& strTitle &"</a></b><br>"& strDescription &"</td></tr>" strTitle = "" strURL = "" strDescription = "" Next html = "<table>"& html &"</table>" set objNodeList = Nothing End if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> </head> <body> <% Response.write (html) %> </body> </html>
  13. gente que programa eu posso usar pra criar BD MYSQL e rodar local. Uso IIS vlw. Nádia.
  14. Oi gente, até a pouco tempo atrás eu não tinha idéia de que era possível usar DB MYSQL em ASP. Sempre tive a impressão de que MYSQL queria dizer base de dados para PHP. Gostaria de saber se usar MYSQL é melhor dq usar o ACCESS e qual a forma de conexão que eu devo usar? Que programas eu posso usar pra criar o mysql no meu pc... e é possível depois importar no site do meu servidor o banco MYSQL. Poderiam me dar uma orientação básica sobre isso. Por fim só uma dúvida. É possível importar todos os dados do ACCESS, com a estrutura pro MYSQL? Muito obrigada.
  15. nadia_xidea

    Erro No Select?

    Deividy valeu pela força... rs... valeu pela flor... e pela dica claro... marcio eu testei o que você me passou e deu certinho... era que no DB tava texto... e não número como deveria estar... Muito obrigada mesmo...
×
×
  • Create New...