<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% strTipContent = "who" Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tipoId FROM tipContent WHERE tipo = '"&strTipContent&"'" objRS.open strSQL, objConexao if objRs.EOF then 'response.redirect ("message.asp?msg=Em breve, novos conteúdos") else strTipoId = objRS("tipoId") set objRS = nothing Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT TOP 1 contentId, imagem, titulo, content FROM Content WHERE default = true and tipoId = " & strTipoId objRS.open strSQL, objConexao End If %>
<%if not objRs.EOF and objRs("imagem") <> "" then%>" /><%else%><%end if%>
<%if objRs.EOF then%>

Aguarde, em breve novos conteúdos.

<%else%> <%=objRS("Titulo")%> <%=Left(objRS("Content"),200)%> ...
<% objRs.Close set objRs = nothing %> <%end if%>
<% Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tipo order by numberOrder asc" objRS.open strSQL, objConexao 'Set rs = Server.CreateObject("ADODB.Recordset") 'SQL = "SELECT * FROM product where promocao = true and index = true order by contentId desc" 'RS.open SQL, objConexao %>
<% if objRs.eof then %> <% else 'do while not rs.eof and i = 2 %> <% for i = 1 to 5 a = 1 + a if objRs.eof then exit for 'finalize table and getout loop end if %> <%if i < 5 then%> <% end if objRs.movenext Next 'loop end if objRs.Close set objRs = nothing %>
Sem registros...
0<%= a%>. " class="link2"><%=UCase(Left(objRs("descricao"&session("lang")&""),100))%>
[TODOS OS PRODUTOS]
<% strTipContent = "quality" Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tipoId FROM tipContent WHERE tipo = '"&strTipContent&"'" objRS.open strSQL, objConexao if objRs.EOF then 'response.redirect ("message.asp?msg=Em breve, novos conteúdos") else strTipoId = objRS("tipoId") set objRS = nothing Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT TOP 1 contentId, imagem, titulo"&session("lang")&" as aliasTitulo, content"&session("lang")&" as aliasContent FROM Content WHERE default = true and tipoId = " & strTipoId objRS.open strSQL, objConexao End If %> <% strTipContent = "tecnology" Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tipoId FROM tipContent WHERE tipo = '"&strTipContent&"'" objRS.open strSQL, objConexao if objRs.EOF then 'response.redirect ("message.asp?msg=Em breve, novos conteúdos") else strTipoId = objRS("tipoId") set objRS = nothing Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT TOP 1 contentId, imagem, titulo"&session("lang")&" as aliasTitulo, content"&session("lang")&" as aliasContent FROM Content WHERE default = true and tipoId = " & strTipoId objRS.open strSQL, objConexao End If %>
<%if objRs.EOF then%>

Aguarde, em breve novos conteúdos.

<%else%> <%=objRS("aliasTitulo")%> <%=Left(objRS("aliasContent"),300)%> ...
<% objRs.Close set objRs = nothing %> <%end if%>
<%if objRs.EOF then%>

Aguarde, em breve novos conteúdos.

<%else%> <%=objRS("aliasTitulo")%> <%=Left(objRS("aliasContent"),300)%> ...
<% objRs.Close set objRs = nothing %> <%end if%>
<% Set objRs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT imprensaId, titulo"&session("lang")&" as aliasTitulo, noticia"&session("lang")&" as aliasNoticia FROM Imprensa order by imprensaId desc" objRs.open strSQL, objConexao %>
<% if objRs.eof then %> <% else 'do while not rs.eof and i = 2 %> <% for i = 1 to 4 %> <% if objRs.eof then exit for 'finalize table and getout loop end if objRs.movenext Next end if objRs.Close set objRs = nothing %>
Sem registros...
<% Set objRs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT noticiaId, titulo"&session("lang")&" as aliasTitulo FROM NOTICIAS" objRs.open strSQL, objConexao %> <% ObjRs.Close set ObjRs = nothing %>

<% if ObjRs.eof then %>


Sem registros... <% else for n = 1 to 3 if objRs.eof then exit for 'finalize table and getout loop end if %> " class="link7"><%=Left(ObjRs("aliastitulo"),150)%> <%if n < 3 then%>

<% end if ObjRs.movenext Next end if %>
[VER TODAS AS PUBLICAÇÕES]
<% Set objRs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Bulas" objRs.open strSQL, objConexao %> <% ObjRs.Close set ObjRs = nothing %>

<% if ObjRs.eof then %>


Sem registros... <% else for n = 1 to 3 if objRs.eof then exit for 'finalize table and getout loop end if %> " class="link7"><%=Left(ObjRs("titulo"),150)%> <%if n < 3 then%>

<% end if ObjRs.movenext Next end if %>
[VER TODAS AS BULAS]