 |
<%
dim sql7, recoro, gbconn, gbconn5
Set gbConn = Server.CreateObject("ADODB.Connection")
gbConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("../dados/dbaeronaves.mdb")
Set gbConn5 = Server.CreateObject("ADODB.Connection")
gbConn5.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("../dados/dbusers.mdb")
sql7 = "select * from aeronaves where destaque > 0 order by RND(INT(NOW*id)-NOW*id)"
' sql7 = sql7 & " where id=" & SearchTextx
Set recoro = Server.CreateObject("ADODB.RecordSet")
recoro.Open sql7, gbConn , adOpenKeySet
continha = 0
if not recoro.eof then
do until recoro.eof
if continha > 2 then %>
<%
continha = 0
end if %>
|
|
<%
continha = continha + 1
recoro.movenext
loop
end if
recoro.Close
Set recoro=Nothing
%>
<% if continha = 1 then %> | | <% end if%>
<% if continha = 2 then %> | <% end if%>
<% ' response.write "" & continha & " | " %>
|
<% else %>
<% end if %>