<% 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") tp=request.QueryString("tp") if tp=null then tp="" end if nm=request.QueryString("nm") if nm=null then nm="" end if if tp<>"" then sSQLCat = "SELECT * FROM publi2 where tipo='"& tp &"' ORDER BY titulo1" set Rr=Server.CreateObject("ADODB.Recordset") Rr.Open sSQLCat, sDSN, adOpenKeySet, adLockPessimistic end if if tp<>"" then sSQLCaty = "SELECT * FROM tipo2 where numero='"& nm &"' ORDER BY titulo1" set Rrx=Server.CreateObject("ADODB.Recordset") Rrx.Open sSQLCaty, 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 %> <% 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 %>

" alt="<% =Rrx("titulo1") %>"> ......

<% Do until Rr.Eof %> ">" border="0" alt="<% =Rr("titulo1") %>" width="100"> <% Rr.MoveNext Loop Rr.Close %>

<% 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 Rrx.close Set Rrx = Nothing %>