<%if session("ducampusclient") <> 1 then %> <% else %> <% end if %>
Webmaster
 
   
     
<% nr_type = Request.QueryString("tipo") query = "SELECT objid,title FROM types WHERE s_moradias = 1" Set con = Server.CreateObject("ADODB.connection") con.Open bd Set utz = con.execute(query,recsAffect,&H0001) if not utz.EOF then Response.Write("|") end if do while not utz.EOF if nr_type = empty then nr_type = utz("objid") if cSTR(utz("objid")) = cSTR(nr_type) then Response.Write(" "&utz("title")&" |") else Response.Write(" "&utz("title")&" |") end if utz.movenext Loop utz.close Set utz = Nothing %>
<% if nr_type <> empty then query = "SELECT name,image,description FROM catalog WHERE catalog_type = 2 AND type = "&nr_type Set mov = con.execute(query,recsAffect,&H0001) do while not mov.EOF if j = 0 then Response.Write("") j = 2 end if Response.Write("") mov.movenext j = j -1 Loop mov.close Set mov = Nothing end if con.close Set con = Nothing %>
") Response.Write(mov("name")) Response.Write("
") if mov("image") <> empty then Response.Write("") end if Response.Write("
") Response.Write(mov("description")) Response.Write("