Hime System

<% Set pMenuV = LojaDB.execute("Select * From links Where posicao Like 'MenuH' Order By ordem") While Not pMenuV.EOF %> <% pMenuV.MoveNext Wend pMenuV.Close Set pMenuV = Nothing %>

<%if pMenuV("linking")="S" then%> " target="<%= pMenuV("target") %>"><%= pMenuV("titulo") %> <%Else%> "><%= pMenuV("titulo") %> <%end if%>

<% Set pMenuV = Lojadb.Execute("Select * From links Where posicao Like 'MenuV' order by ordem") While Not pMenuV.EOF %> <% pMenuV.MoveNext Wend pMenuV.Close Set pMenuV = Nothing %>

<%if pMenuV("linking")="S" then%> " target="<%= pMenuV("target") %>"><%= pMenuV("titulo") %> <%Else%> "><%= pMenuV("titulo") %> <%end if%>

<% Set PegaLink = Lojadb.execute("Select * from links Where id like '"&request.QueryString("link")&"'") If PegaLink("linking")="S" Then Response.Redirect(PegaLink("urlink")) End If %>

<% If PegaLink("mostra_titulo")="S" Then %>

<% If Not PegaLink("video") = "" Then %>

<% End If %>

<%=PegaLink("titulo")%><%'If PegaLink("previa") <> "" Then%>
<%=PegaLink("previa")%><%' End If %>

<%If PegaLink("por") <> "" Or PegaLink("data") <> "" Or PegaLink("hora") <> "" Then%>

<%If PegaLink("por") <> "" Then%> Por: <%=PegaLink("por")%> <% End If %>
<%If PegaLink("data") <> "" Then%> Data: <%=PegaLink("data")%> <% End If %>
<%If PegaLink("hora") <> "" Then%> Hora: <%=PegaLink("hora")%> <% End If %>

<% End If %>

<%=Replace(PegaLink("conteudo"),"[url]",url)%>

<% if PegaLink("iframe")<>"" then %> <% End If If PegaLink("including")<>"" Then %> <%=Server.Execute(PegaLink("including"))%> <% End If If request.QueryString("link")<>"1" then %>
<< VOLTAR
<%end if%>