<% 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 RsCat, sSQLCat,v_ordem,RsOp,sSQLop,RsRot,sSQLRot,Rr,RsCatx sv=request.QueryString("sv") if sv=null then sv="" end if if sv<>"" then sSQLCat = "SELECT * FROM resid2 where numero='"& sv &"' ORDER BY titulo1" set Rr=Server.CreateObject("ADODB.Recordset") Rr.Open sSQLCat, sDSN, adOpenKeySet, adLockPessimistic end if sSQLCatx = "SELECT * FROM home ORDER BY ordem" set RsCatx=Server.CreateObject("ADODB.Recordset") RsCatx.Open sSQLCatx, sDSN, adOpenKeySet, adLockPessimistic If Not RsCatx.Bof then RsCatx.Movefirst End if %> MARCOS CRUZ || || Últ.Atual.em Jul 2011 <% if RsCatx("imgfundo")<>"" then %> bgcolor="#000000"<% else %>bgcolor="<%= RsCatx("cor") %>"<% end if %> leftmargin="0" topmargin="0"> <% else %> bgcolor="#000000"<% else %>bgcolor="<%= RsCatx("cor") %>"<% end if %> background="../upload/<%= RsCatx("imgfundo") %>" leftmargin="0" topmargin="0"> <% end if %>
 
<%= Rr("texto1") %>
<% if Rr("videos")<>"" then %> " >Assista o Vídeo
<% end if %>
  " width="249" height="300" alt="<%= Rr("titulo1") %>" >  
<% if Rr("ima1")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima1x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima1x") %>"> <% end if %> <% if Rr("ima2")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima2x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima2x") %>"> <% end if %> <% if Rr("ima3")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima3x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima3x") %>"> <% end if %> <% if Rr("ima4")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima4x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima4x") %>"> <% end if %> <% if Rr("ima5")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima5x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima5x") %>"> <% end if %> <% if Rr("ima6")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima6x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima6x") %>"> <% end if %> <% if Rr("ima7")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima7x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima7x") %>"> <% end if %> <% if Rr("ima8")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima8x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima8x") %>"> <% end if %> <% if Rr("ima9")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima9x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima9x") %>"> <% end if %> <% if Rr("ima10")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima10x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima10x") %>"> <% end if %> <% if Rr("ima11")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima11x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima11x") %>"> <% end if %> <% if Rr("ima12")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima12x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima12x") %>"> <% end if %> <% if Rr("ima13")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima13x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima13x") %>"> <% end if %> <% if Rr("ima14")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima14x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima14x") %>"> <% end if %> <% if Rr("ima15")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima15x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima15x") %>"> <% end if %> <% if Rr("ima16")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima16x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima16x") %>"> <% end if %> <% if Rr("ima17")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima17x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima17x") %>"> <% end if %> <% if Rr("ima18")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima18x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima18x") %>"> <% end if %> <% if Rr("ima19")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima19x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima19x") %>"> <% end if %> <% if Rr("ima20")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima20x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima20x") %>"> <% end if %> <% if Rr("ima21")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima21x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima21x") %>"> <% end if %> <% if Rr("ima22")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima22x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima22x") %>"> <% end if %> <% if Rr("ima23")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima23x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima23x") %>"> <% end if %> <% if Rr("ima24")<>"" then %>" rel="lightbox[roadtrip]" title="<%= Rr("ima24x") %>">" border="0" width="96" height="96" alt="<%= Rr("ima24x") %>"> <% end if %>
 
<% if RsCatx("imagem1")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt1") %>"> <% end if %> <% if RsCatx("imagem2")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt2") %>"> <% end if %> <% if RsCatx("imagem3")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt3") %>"> <% end if %> <% if RsCatx("imagem4")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt4") %>"> <% end if %>   
<% RsCatx.close Set RsCatx = Nothing Rr.close Set Rr = Nothing %>