<%strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\mdb\links.mdb") Set RS=Server.CreateObject("ADODB.RecordSet") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnString grupo=request.querystring ssql = "select * From links where publicar=1 and clasificacion='" & grupo &"' order by nombre" RS.Open ssql, Conn %>

INDICE DE ENLACES

 

General
Enteógenos, estimulantes, psicodelia...

Espiritualidad y Filosofía
Espiritualidad, filosofía, metafísica

Psicología
Psicología, ensayos clínicos

Medicina
Psiquiatría, informes médicos

Farmacia y Química
Química de sustancias, medicamentos

Botánica
Especies vegetales

Otros
No clasificados

 

Arte
Arte enteógeno y psicodélico

Cultivo
Cultivos generales

Cultivo Cannabis
Cultivo de cannabis, elaboración...

Cultivo de Hongos
Cultivo de psilocibes.

Venta por Correo
Venta por correo, catálogos...

Asociaciones
Asociaciones, fundaciones...

RECOMIENDANOS UN ENLACE

<%While not Rs.eof elcoment=RS("comentario") laurl=RS("url") ladire=RS("direccion") elmail=RS("email") idioma=RS("idioma") %> <%if idioma<>"" then%> <%end if%> <%=RS("nombre")%>
<%if elcoment<>"" then%> <%=elcoment%>
<%end if%> <%if laurl<>"" then%> URL: <%=laurl%>
<%end if%> <%if ladire<>"" then%> Dirección: <%=ladire%>
<%end if%> <%if elmail<>"" then%> e-mail:<%=elmail%>

<%end if%>

 <%rs.movenext Wend%> <%Conn.Close set RS = nothing set Conn = nothing%>