<%
Dim sPath, sScriptDir, sDSN
Const adOpenKeyset = 1
Const adLockPessimistic = 2
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)
sPath = Server.MapPath(sScriptDir) & "\"
sDSN="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/mcruz3z.mdb")
Dim sScript, iAdminStatus, sPagina, Tela
sScript = Request.ServerVariables("SCRIPT_NAME")
Dim RsCat, sSQLCat,v_ordem
Dim RsRot, sSQLRot
sSQLRot = "SELECT * FROM home ORDER BY texto1"
set RsRot=Server.CreateObject("ADODB.Recordset")
RsRot.Open sSQLRot, sDSN, adOpenKeySet, adLockPessimistic
%>
<% if RsRot("acesso")="N" then %>
MARCOS CRUZ
<% if RsRot("imgfundo")<>"" then %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> leftmargin="0" topmargin="0">
<% else %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> background="../upload/<%= RsRot("imgfundo") %>" leftmargin="0" topmargin="0">
<% end if %>
<% if RsRot("imagem8")<>"" then %>
" style='vertical-align:middle'>
<% else %><%=RsRot("texto1")%><% end if %>
<% else %>
<% if RsRot("imagemtipo")="N" then %>
REDIRECIONAMENTO
<% if RsRot("imgfundo")<>"" then %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> leftmargin="0" topmargin="0">
<% else %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> background="../upload/<%= RsRot("imgfundo") %>" leftmargin="0" topmargin="0">
<% end if %>
<% else %>
<% if RsRot("imagemtipo2")="I" then %>
MARCOS CRUZ
<% if RsRot("imgfundo")<>"" then %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> leftmargin="0" topmargin="0">
<% else %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> background="../upload/<%= RsRot("imgfundo") %>" leftmargin="0" topmargin="0">
<% end if %>
" border="0">
<% else %>
MARCOS CRUZ
<% if RsRot("imgfundo")<>"" then %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> leftmargin="0" topmargin="0">
<% else %>
bgcolor="#000000"<% else %>bgcolor="<%= RsRot("cor") %>"<% end if %> background="../upload/<%= RsRot("imgfundo") %>" leftmargin="0" topmargin="0">
<% end if %>
<%=RsRot("textoimagemtipo")%>
<% end if %>
<% end if %>
<% end if %>
<% RsRot.Close
Set RsRot = Nothing %>