%
SQLQuery = "select * from categorias where tipo='documentos'"
Set categ = OBJdbConnection.Execute(SQLQuery)
cat = Int(Request.QueryString("cat"))
if cat=0 and not categ.eof then
cat=categ("idcategoria")
end if
SQLQuery = "select * from subcategorias where categoria="&cat
Set subca = OBJdbConnection.Execute(SQLQuery)
%>
|
|
|
|
|
|
|
<%
Do while not categ.eof
%>
<%if cat=categ("idcategoria") then%><%=categ("nombre")%><%else%>"><%=categ("nombre")%><%end if%> |
<%
categ.movenext
loop
%>
|
|
|
|
|
|
|
<%PieDocumentos%> |
|
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
%>