<%@ Language=VBScript %>
EDUMECR
<%f=Request.QueryString("f")
if((f="tesis/prin.asp")or(f="tesis/obj.asp"))then
x="tesis/pubt.asp"
end if
if((f="tema1/obj1.asp")or(f="tema1/con1.asp")or(f="tema1/rec1.asp")or(f="tema1/aut1.asp"))then
x="tema1/pub1.asp"
end if
if((f="tema2/obj2.asp")or(f="tema2/con2.asp")or(f="tema2/rec2.asp")or(f="tema2/aut2.asp"))then
x="tema2/pub2.asp"
end if
if((f="tema3/obj3.asp")or(f="tema3/con3.asp")or(f="tema3/rec3.asp")or(f="tema3/aut3.asp"))then
x="tema3/pub3.asp"
end if
if((f="tema4/obj4.asp")or(f="tema4/con4.asp")or(f="tema4/rec4.asp")or(f="tema4/aut4.asp"))then
x="tema4/pub4.asp"
end if
if((f="tema5/obj5.asp")or(f="tema5/con5.asp")or(f="tema5/rec5.asp")or(f="tema5/aut5.asp"))then
x="tema5/pub5.asp"
end if
if((f="tema6/obj6.asp")or(f="tema6/con6.asp")or(f="tema6/rec6.asp")or(f="tema6/aut6.asp"))then
x="tema6/pub6.asp"
end if
'response.Write(x)
%>