Pegar Variável

[doulo4ever]

Oi pessoal,

como eu faço para pegar a variável de um link e enviar para um select?

O link é:

default.asp?idcat=1

O select é:

Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat='1' ORDER by nome;")

Eu tentei o seguinte:

<table border=1>

<%

'Monta o menu de departamentos

Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat='&idcat' ORDER by nome;")

While Not menu.EOF%>

<TR>

<TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")>

<%=menu("nome")%></a>

</TD>

</TR>

<%

menu.MoveNext

Wend

'Fecha o menu

menu.Close

Set menu = Nothing%>

</table>

Mas não está listando! Eu tenho que colocar alguma linha de código para resgatar aquela variável do link antes de fazer o &idcat ?

O select não está pegando o variável que está no link!

Alguém pode me ajudar? Obrigado

[Victor]

Deixa eu ver se entendi.. Você uma querystring conforme o AUTONUMERAÇÃO do seu Banco de dados... Certo?

[]'s

Victor

[doulo4ever]

É uma loja virtual!

Existe um arquivo "categorias.asp" que pega as categorias existentes e lista

categorias.asp

<table border=1>

<%

Set cat = abredb.Execute("SELECT * FROM categorias ORDER by nome;")

While Not cat.EOF%>

<TR>

<TD VALIGN="middle"><a href=default.asp?idcat=<%= cat("idcat") %>>

<%= cat("nome") %></a>

</TD></TR>

<%

cat.MoveNext

Wend

cat.Close

Set cat = Nothing%>

</table>

default.asp

<table border=1>

<%

'Monta o menu de departamentos

Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat='&idcat' ORDER by nome;")

While Not menu.EOF%>

<TR>

<TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")>

<%=menu("nome")%></a>

</TD>

</TR>

<%

menu.MoveNext

Wend

'Fecha o menu

menu.Close

Set menu = Nothing%>

</table>

Mas este select do arquivo default.asp não está pegando a variável "idcat" do link!

Tem alguma coisa a mais que deve ser feita?

Obrigado

[mariofdf]

tente ai colega...

<table border=1>

<%
'declara vartiavel
txtidcad = Request.QueryString("idcat")
'Monta o menu de departamentos
Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat= "& txtidcad &" ORDER by nome;")
While Not menu.EOF%>

<TR>
<TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")>
<%=menu("nome")%></a>
</TD>
</TR>

<%
menu.MoveNext
Wend
'Fecha o menu
menu.Close
Set menu = Nothing%>

</table>

se der tipo de dados imcompativeis troque

cat= "& txtidcad &"

por

cat= '"& txtidcad &"'

ate mais

atenciosamente

mariofdf

[Victor]

Tipo, ai tem o registro1, ai fica assim:

arquivo.asp?id=1 | e assim por diante

Certo??

[]'s

Victor

[doulo4ever]

Isso!

Eu preciso pegar o valor id=1 e transportá-lo para o select que vai mostrar apenas as sub-categorias referentes àquela categoria principal!

mariofdf, tentei sua sugestão, mas continua não mostrando nada!

O select continua não conseguindo pegar o valor

[Victor]

Você faz tipo assim:

<%
set RecSet = server.createobject("adodb.recordset")
RecSet.open "select colunas from tabela_bd where id = "&request.querystring("id")&"",conn
%>
<%=RecSet("colunas")%>
etc.........
<%Recset.close%>

Ta ai um exemplo.....Mas você tem que fazer o conecta, o instanciamento, etc...

Caso tenha mais alguma dúvida, é só chamar ai!!!

[]'s

Victor

[Guest Carlos Seiji]

Ae tentai

<table border=1>

<%
'Monta o menu de departamentos
Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat='"&Request.QueryString("idcat")&"' ORDER by nome;")
While Not menu.EOF%>

<TR>
<TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")>
<%=menu("nome")%></a>
</TD>
</TR>

<%
menu.MoveNext
Wend
'Fecha o menu
menu.Close
Set menu = Nothing%>

</table>

[mariofdf]

mande o link para poder ver o erro que ocorre

[doulo4ever]

Valeu Carlos Seiji,

agora funcionou corretamente!

Obrigado

Paulo

[Victor]

<table border=1>

arquivo.asp

<%

'Monta o menu de departamentos
Set menu = abredb.Execute("SELECT * FROM sessoes WHERE ver='s' AND cat='&idcat' ORDER by nome;")
While Not menu.EOF%>

<TR>
<TD VALIGN="middle"><a href=sessoes.asp?item=<%= menu("id")>
<%=menu("nome")%></a>
</TD>
</TR>

<%
menu.MoveNext
Wend
'Fecha o menu
menu.Close
Set menu = Nothing%>

</table>

sessão.asp

Set menu = abredb.Execute("SELECT * FROM sessoes WHERE item = "&request.querystring("item")&""%>
<%=item("coluna")%>

<%
menu.MoveNext
Wend
'Fecha o menu
menu.Close
Set menu = Nothing%>

Tenta isso ae, se precisar de mais alguma coisa, poste!!!

[]'s

Victor

[doulo4ever]

Galera, eu usei o código "&Request.QueryString("idcat")&" conforme o Carlos Seiji sugeriu e funcionou corretamente, mas eu queria tirar só mais uma dúvida básica!

Como eu faço para que se o valor da variável idcat for nulo (?idcat=) aparecer algo como "especifique uma categoria" e se tiver um valor especificado (?idcat=1) aí sim aparecer a página normalmente e listar as subcategorias daquela categoria principal?

Agradeço qualquer ajuda!

[dark0]

ué..

if Request.QueryString("idcat") = "" then

response.write "mensagem de erro.."

end if

isso?

[doulo4ever]

Era bem isso mesmo, só que tipo...se for nulo, como eu faço para redirecionar para outra página?

[dark0]

no lugar do response.write, você coloca

response.redirect "link.asp"

if Request.QueryString("idcat") = "" then

response.redirect "link.asp"

end if

certo?

[Guest Carlos Seiji]

if Request.QueryString("idcat") = "" then

response.redirect "http://www.dominio.com.br"

end if

[]'s

[doulo4ever]

Galera, valeu mesmo!

[doulo4ever]

Pessoal, funcionou tudo ok, mas o valor da variável idcat está se perdendo quando eu clico no link para ver os produtos das subcategorias!

O menu tenta buscar no link aquele valor idcat=1, mas não está conseguindo porque ele simplesmente some depois que eu clico nos próximos links!

Para solucionar este caso, vou ter que colocar este valor em todos os links da página! Tentei das seguintes formas:

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<% Request.QueryString("idcat") %>">

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<% "&Request.QueryString("idcat")&" %>">

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<% &Request.QueryString("idcat")& %>">

Mas nenhuma conseguiu puxar o valor do link!

Neste caso o código tem que ser diferente?

[dark0]

coloque assim:

<%= Request.QueryString("idcat") %>">

[Guest Carlos Seiji]

ae você esqueceu de colocar o = depois da % e assim ele não escrevia na pagina.

pois "%=" tem o valor do Response.Write

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<%= Request.QueryString("idcat") %>">

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<%= Request.QueryString("idcat") %>">

<a href="sessoes.asp?item=<%= menu("id") %>&idcat=<%= Request.QueryString("idcat") %>">

[doulo4ever]

Realmente galera, agora funcionou normalmente!

BRIGADUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU