<% 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">

ENTRAR NO SITE

<% 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")%>

ENTRAR NO SITE

<% end if %> <% end if %> <% end if %> <% RsRot.Close Set RsRot = Nothing %>