<% SQLQuery = "select * from categorias where tipo='servicios'" Set categ = OBJdbConnection.Execute(SQLQuery) cat = Int(Request.QueryString("cat")) if cat=0 then cat=categ("idcategoria") end if SQLQuery = "select * from subcategorias where categoria="&cat Set subca = OBJdbConnection.Execute(SQLQuery) %>
           
<% Do while not categ.eof %> <% categ.movenext loop %>
<%if cat=categ("idcategoria") then%><%=categ("nombre")%><%else%>"><%=categ("nombre")%><%end if%>
<% Do while not subca.eof %> <% subca.movenext loop %>
"><%=subca("nombre")%>
Otras subcategorías
<%PieOfertas%>
ESPAÑA: Alemparte Nº 29 A. Areas. 36860 Ponteareas. Pontevedra. Telf: 986 642299 / 986 660243 Fax: 986 661995 - E-mail: comercial@tesisgalicia.es
PORTUGAL: R. Sarmento Beires, 102 - 4450 - 723 Leça da Palmeira Telf: +351 22 999 60 70 Fax: +351 22 999 60 71 Movel: +351 91 929 25 49
Aviso Legal
<% Set categ=nothing Set subca=nothing %>