<% if request.QueryString("link")="" then response.redirect("?link=1") end if %> 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 %>
"> " showcontrols=1 autostart=1 AutoRewind="-1" AnimationAtStart=-1 allowscan="-1" bufferingtime="8" clicktoplay="-1" currentposition="-1" currentmarker="-1" filename="imagens/<%= PegaLink("video") %>" invokeurls="-1" showcaptioning="0" showaudiocontrols="0" showdisplay="0" showgotobar="0" showpositioncontrols="1" showstatusbar="1" showtracker="1" transparentatstart="0" videoborderwidth="1" videobordercolor="1" videoborder3d="1" windowlessvideo="0"> <% 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 %>
<% 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%>
Hime System 2008 - Todos os direitos reservados.