<%
Set objFileSys = Server.CreateObject("scripting.FileSystemObject")
Set Thefolder = objFileSys.GetFolder(strCaminho_titleimg)
Set Thefiles = TheFolder.files
For Each Thefiles in TheFiles
if TheFiles.Name = "title"&strTipContent&".gif" then
TipContent = TheFiles.Name
exit for
end if
next
Set objFileSys = nothing
Set Thefolder = nothing
Set Thefiles = nothing
%>
<%
'Set objFileSys = Server.CreateObject("scripting.FileSystemObject")
'Set Thefolder = objFileSys.GetFolder(strCaminho_icoImg)
'Set Thefiles = TheFolder.files
'For Each Thefiles in TheFiles
'if TheFiles.Name = strTipContent&".jpg" then
'TipContent = TheFiles.Name
'exit for
'end if
'next
'Set objFileSys = nothing
'Set Thefolder = nothing
'Set Thefiles = nothing
%>
<%if isEmpty(TipContent) then%><%else%><%end if%>
<%
if isEmpty(tipProd) then
strTipContent = "links"
else
strTipContent = tipProd
end if
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 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
%>
<%=objRS("aliasContent")%>
<%
objRs.Close
set objRs = nothing
%>
<%end if%>
<%
Set objrs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Links order by titulo asc"
objrs.Open strSQL, objConexao
Do While not objRS.EOF%>
