Select Case

[xlabs 0]

Ai pessoal não sei se estou viajando.

Tenho uma tabela com mais ou menos 20 Categoria diferentes, gostaria de mostrar as categorias separdamente.

 

Pensei nisso mas não sei estou viajando

 

ASP [/tr][tr]

<%

Set conn = Server.CreateObject("ADODB.CONNECTION")

conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=D:\Dev\Magazine.mdb"

Set rs = Server.CreateObject("ADODB.RECORDSET")

%>

<%'

 

Dim Categoria

Categoria = request.QueryString("Categoria")

 

Select Case Categoria

Case "Atualidades"

rs.Open "SELECT Revista FROM Magazine WHERE Categoria(Atualidades)=#"& Atualidades &"#"

%>

<br><a href="Revistas.asp">Voltar</a>

<%

Case "Animais"

rs.Open "SELECT Revista FROM Magazine WHERE Categoria(Animais)=#"& Animais &"#"

%>

<br><a href="Revistas.asp">Voltar</a>

<%

Case "Automotivas"

rs.Open "SELECT Revista FROM Magazine WHERE Categoria(Automotivas)=#"& Automotivas &"#"

%>

<br><a href="Revistas.asp">Voltar</a>

<%

Case Else

%>

<a href="Revistas.asp?Categoria=Atualidades">Atualidades</a><br>

<a href="Revistas.asp?Categoria=Animais">Animais</a><br>

<a href="Revistas.asp?Categoria=Automotivas">Automotivas</a>

<%

End Select

%>

[/tr]

[SixxTO 0]

beleza..Aeew pra vinte categorias seu codigo ia ficar muito pesado e lento, tenta usarsoh as string via request.querystring("Categoria"), e colocando o request direto no comando SQL. pode ser q de certo.