Select Case

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]