Select Case múltiplo

Olá gente.

Tenho uma pequena dúvida:

Gostaria q um Select Case retornasse valores personalizados. Assim: imaginemos que no campo SECAO o valor 'video' seja capturado. Então, o Case irá colar o link lá no ASP. Se o Case retornar como 'artigo'... o Case irá gerar no geralink, o link correspondente.

Abaixo tem a minha idéia. Por favor vejam aí :)

<%
WHILE not rs.eof Do Until

 Select Case rs("secao")

 Case "video"
 geralink = "java script:abre_vplayer('video_player.asp?id=<%=rs("id")%>');"

 Case "artigo"
 geralink = "artigo.asp?id=<%=rs("id")%>"

 Case "banco de textos"
 geralink = "vertexto.asp?id=<%=rs("id")%>"

 End Select

 <h2><%=rs("secao")%></h2>
 <h1><a href="<%=geralink%>" target="_parent"><%=rs("titulo")%></a></h1>
 <p><a href="<%=geralink%>" target="_parent"><%=rs("descricao")%></a></p>

 <% RS.MoveNext %>