--Ludson--

você tem que dar um Request pra cada parametro que deseja recuperar da url... pagina.asp?par1=10&par2=20&par3=30 <% par1 = request.querystring("par1") par2 = request.querystring("par2") par3 = request.querystring("par3") %>

bom.. galera.. achei o problema.. acho que até já tinha dito aqui sobre o lançe de permissões e tal.. descobri que a falha no sistema era humano! haeuauheueahueau tipo.. todo dia tem um retardado que mexe no servidor.. e ele tava tirando as permissões da pasta. eu já tinha desconfiado, ai hoje eu fui olhar di novo e vi que tva sem as permissões... fui perguntar e o cara falo que tira as permissões.. fdp huahuahua agora ta funcionando.. era erro de permissões! bom.. vlew pelo empenho geral da galera.. agora ta funcionando certim!! =) vlew!!

eu tentei colocar apenas o select * from jornal e o erro continuou... não pode ser alguma configuração do computador?

óó no dreamweaver ta assim: SELECT * FROM jornal WHERE destaque = '" & Replace(Djornal__MMColParam, "'", "''") & "' ai eu tento testar da o seguinte erro: Parameter grid row:1 MMColParam is an invalid variable name; it does not appear in the sql mais tipo.. na minha estação de trabalho.. roda normal.. ai no servidor ele da esses paus...

e ae .. beleza?? tipo... você pode usar umas condicionais!! =) eu faço isso sempre com if else then! =) tipo.. você precisa recuperar a url para entrar na condicional, por exemplo.. se quiser pagina.asp?id=musica; para isso: <% id = Request.QueryString("id") %> pronto.. agora cria as páginas: <% if id = "" then ' se id for vazio %> página não existe <% end if if id <> "" then ' se id não for vazio %> <% ... ... SELECT * FROM TABELA WHERE id = '" & id &"'" ... %> página aqui <% end if%> tendeu +-?

tipo.. tem sim.! =) isso é muito estranho!!!

o nome do banco ta errado no caminho??? Data Source=C:/mdb/banco.mdb" o nome do arquivo pode estar errado.. ou então não sei! hehehehhe+ posta o fonte ai pra ver

uso access e é local sim... <% Dim MM_produtos_STRING MM_produtos_STRING = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:/Inetpub/wwwroot/mapicenter/mdb/produtos.mdb" %> isso é muito estranho, eu copiei os arquivos do servidor para minha maquina e to rodando ele local... no meu pc ele funciona normal, eu dei as permissões no bd e ele rodo di boua... e ele tava rodando normal antes de trocar o servidor.. não é alguma configuração da maquina? hellppp!!! =)

http://scriptbrasil.com.br/forum/index.php...ndpost&p=314542 ae..

hahaha.. desculpa.. esqueci de falar que o banco não estava aberto! =) hehehe... esse erro da quando o bd ta aberto.. mais nesse caso ele ta bem fechadinho!!! hehehe =)

tipo. eu fiz isso mais ai da outro erro.. ele fala que o banco já esta em uso! porque?

da uma olhada nas extensões do servidor .. tipo.. se ele não tivesse suporte a asp ele tentaria baixar as páginas que você tentasse acessar, e não daria erro 404....

olha.. eu achei isso em outro tópico aqui no fórum.... eu fiz.. entrou no site.. não deu o erro que estava dando na linha 29... acontece que ele pede um nome de usuário e senha. ou seja.. só quem ta aqui na minha empresa vai poder acessar, quem estiver nas filiais não vão! como configurar para que o anonimo acesse a página sem dar o erro?

NEM É. isso é o dreamweaver que fez.. eu mudei mais não adiantou nada!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim MM_produtos_STRING MM_produtos_STRING = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:/Inetpub/wwwroot/mapicenter/mdb/produtos.mdb" %> <% Dim Djornal__MMColParam Djornal__MMColParam = "sim" If (Request.QueryString("destaque") <> "") Then Djornal__MMColParam = "sim" End If %> <% Dim Djornal Dim Djornal_numRows Set Djornal = Server.CreateObject("ADODB.Recordset") Djornal.ActiveConnection = MM_produtos_STRING Djornal.Source = "SELECT * FROM jornal WHERE destaque = '" + Replace(Djornal__MMColParam, "'", "''") + "'" Djornal.CursorType = 0 Djornal.CursorLocation = 2 Djornal.LockType = 1 29 - Djornal.Open()[ Djornal_numRows = 0 Dim jornal Dim jornal_numRows Set jornal = Server.CreateObject("ADODB.Recordset") jornal.ActiveConnection = MM_produtos_STRING jornal.Source = "SELECT * FROM jornal" jornal.CursorType = 0 jornal.CursorLocation = 2 jornal.LockType = 1 jornal.Open() jornal_numRows = 0 %> <!-- #include file="config.asp" --> <% if Djornal.Bof or Djornal.EOF then %> Nenhum registro encontrado <% Response.End End If %> <table width="100%" border="0"> <tr> <td width="62%" valign="top"> <a href="produtos.asp?sessao=<%= (Djornal.Fields.Item("categoria").Value)%>&area=<%= (Djornal.Fields.Item("subcategoria").Value)%>&cod=<%= (Djornal.Fields.Item("codigo").Value)%>"> <img src="imagens/jornal/<%=(Djornal.Fields.Item("imagem").Value)%>" width="400" height="300" border="0" /> </a> </td> <td width="38%" valign="top"><div align="center"> <table width="100%" border="0"> <tr> <td> <div align="center"> <p>&nbsp;</p> <p> <strong> <a href="produtos.asp?sessao=<%= (Djornal.Fields.Item("categoria").Value)%>&amp;area=<%= (Djornal.Fields.Item("subcategoria").Value)%>&amp;cod=<%= (Djornal.Fields.Item("codigo").Value)%>"> <%=(Djornal.Fields.Item("nome").Value)%> </a> </strong> - <a href="produtos.asp?sessao=<%= (Djornal.Fields.Item("categoria").Value)%>&amp;area=<%= (Djornal.Fields.Item("subcategoria").Value)%>&amp;cod=<%= (Djornal.Fields.Item("codigo").Value)%>"> <%=(Djornal.Fields.Item("fabricante").Value)%> </a> </p> <td> <div align="left"> <a href="produtos.asp?sessao=<%= (Djornal.Fields.Item("categoria").Value)%>&amp;area=<%= (Djornal.Fields.Item("subcategoria").Value)%>&amp;cod=<%= (Djornal.Fields.Item("codigo").Value)%>"> <%=(Djornal.Fields.Item("detalhe").Value)%> </a> </div> </td> </tr> <tr> <td><div align="center"><span class="style4"> <% if(Djornal.Fields.Item("preço").Value < Djornal.Fields.Item("precovelho").Value) then %> De: R$ <%=(formatnumber(Djornal.Fields.Item("precovelho").Value))%><br /> <%else%> R$ <%=(Djornal.Fields.Item("preço").Value)%> <%end if%> <% Djornal.Close() Set Djornal = Nothing jornal.Close() Set jornal = Nothing %> ta meio grande.. tem uns table no meio .. eu tirei bastante lixo.. =) a linho 29 que é a do erro é a seguinte: Djornal.Open() o que pode ser??

e ae galera.. óia eu aqui otra veiz.. =p seguinte.. aqui na firma tem um servidor web onde eu hospedo o site deles.. tva funcionando tudo certim até que ontem eles trocaram o servidor. como todos somos espertos, tinha um backup da página que coloquei no novo servidor. mas deu aquele erro de permissões, fala que deve ser uma consulta atualizável, ai eu entrei no sistema, entrei nas configurações do bd e liberei acesso total a todos os usuários. ai beleza, mais agora ele fala que o arquivo está em uso, como se o bd estivesse aberto sabem?? aquele erro de quando você tenta testar sua página, mais você esqueçe de fechar o bd? huhuhuehuaheuea então.. mais acontece que ele não ta aberto! esse erro da por algum outro motivo tb?? o que eu faço?? hellpppppp..... Microsoft JET Database Engine (0x80004005) Could not use ''; file already in use. /mapicenter/Default.asp, line 29 vlew galera!..

grava num bd? puxa um select com order by data! isso?

tipo.. faz o que a andreia falou.. mais na sua casa!! ehehehehe tipo.. agenda no seu pc.. tem banda larga?? agenda uma hora que o pc sempre ta ligado.. ai você msmo ativa! num daria certo?

ow.. porque você não cria uma única página chamada redirecionar.asp ai você poe: cmn = Request.QueryString("cmn") response.redirect "orkut.com?perfil.asp?cmn="&cmn ou coisa assim.. não é mais simples? redirecionar.asp?cmn=1002255522cccxxxx11df11df222dfdf =) esse cmn você pode pegar do bd.. rs("cmn") da na mesma.. você não tem que criar várias páginas .. uma só resolve seu problema..

ahh.. meu email é esse mesmo.. ludsonaiello@gmail.com tenta no ludson.mapicenter@gmail.com vlew

olhei o link sim.. mais não deu muito certo.. esse é o único jeito de fazer?? não tem um mais facim não? heuheuhue..

eu tva meio sem saco de escrever os códigos, então fiz no dreeamweaver.. mais vai dar pra você ter uma idéia.... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim MM_produtos_STRING MM_produtos_STRING = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=C:/Inetpub/wwwroot/mapicenter/mdb/produtos.mdb" Dim produtos__MMColParam produtos__MMColParam = "1" If (Request.QueryString("cod") <> "") Then produtos__MMColParam = Request.QueryString("cod") End If %> <% area = request.QueryString("area") sessao = request.QueryString("sessao") cod = request.QueryString("cod") if area = "" then Dim Recordset2 Dim Recordset2_numRows Dim sessao Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_produtos_STRING Recordset2.Source = "SELECT top 10 * FROM produtos WHERE categoria LIKE '" & sessao & "%' ORDER BY vezes DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 If Recordset2.EOF or Recordset2.BOF Then ' Pesquisa não encontrou nada %> <center>Nenhum registro encontrado nesta categoria!</center> <% Response.End End If %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) %> se area for vazio entra nessa página.. <% else%> <% if area <> "" then if cod = "" then ' se área não for vazio, mais o código é %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_produtos_STRING Recordset3.Source = "SELECT * FROM produtos WHERE subcategoria LIKE '" & area & "%' AND categoria LIKE '" & sessao & "%' ORDER BY vezes DESC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 If Recordset3.EOF or Recordset3.BOF Then ' Pesquisa não encontrou nada %> <center>Nenhum registro encontrado nesta categoria!</center> <% Response.End End If %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset3.EOF)) %> entra nessa página se area = "" <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset3.MoveNext() Wend %> <% end if if cod <> "" then %> <% Dim produtos Dim produtos_numRows Set produtos = Server.CreateObject("ADODB.Recordset") produtos.ActiveConnection = MM_produtos_STRING produtos.Source = "SELECT * FROM produtos WHERE codigo = '" + Replace(produtos__MMColParam, "'", "''") + "'" produtos.CursorType = 0 produtos.CursorLocation = 2 produtos.LockType = 1 produtos.Open() produtos_numRows = 0 If produtos.EOF or produtos.BOF Then ' Pesquisa não encontrou nada %> Nenhum registro encontrado nesta categoria! <% Response.End End If %> entra aqui se codigo não for vazio. <% sql = "UPDATE produtos SET vezes = vezes + 1 WHERE codigo = '" & cod & "' " set rs = conexao.execute(sql) %> <% produtos.Close() Set produtos = Nothing end if end if end if %> tipo.. eu tirei os códigos HTMl... o código ai ta meio sujo.. mais acho que da pra você ter uma noção +-

Mateus.. eu desenvolvi um sistema tipo de loja virtual.. eu criei apenas uma página para produtos... no meu bd tenho.. as tabelas: - Produtos - Categorias - Subcategorias em produtos eu fiz da segunte maneira... se a url for: http://localhost/produtos.asp o sistema vai me mostrar todas as categorias e todos os produtos. se a url for: http://localhost/produtos.asp?sessao=eletronicos o sistema me mostra todos os produtos da area eletronicos se a url for: http://localhost/produtos.asp?sessao=eletronicos&area=tv o sistema me mostra todas as televisões se o se a url for: http://localhost/produtos.asp?sessao=eletr...&codigo=1006559 o sistema mostra uma página só para o produto, com detalhes e tal.. funciona assim... ele pega o que eu preciso pelo endereço, e eu filtro isso pelo SQL... na minha tabela produtos eu tenho: codigo, nome, fabricante, preço, categoria e subcategoria... vou postar o script +- pra você dar uma olhada.. ...

..

ludsonaiello@gmail.com