Postagens
Não informado
Gostaria da ajuda de alguém.
Quero apresentar em uma página 6 registros que vem aleatoriamente do banco de dados em access para que a cada vez que a pessoa abra a página, ela mostre produtos diferentes.
vou colocar o codigo abaixo da página que existe:
@@@@@@@@@@@@@@@@@@@@@@@@@@@
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conexao.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cadastro_STRING
Recordset1.Source = "SELECT * FROM imobiliaria "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 11
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
'Senão encontrar nenhum registro '
if Recordset1.eof then
response.write "<p> <p><center><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>Não consta em nosso banco de dados nenhuma EMPRESAS neste período.</b></font></center>"
else
%>
<html>
<head>
<title>Imobiliária RCM</title>
<style type="text/css">
<!--
.text {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>}
.bold {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strTextColour %>; font-weight: bold;}
.italic {font-family: <% = strTextType %>; font-size: <% = intTextSize - 1 %>px; color: #009900; font-style: italic;}
.heading {font-family: <% = strTextType %>; font-size: 24px; color: <% = strTextColour %>; font-weight: bold;}
a {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strLinkColour %>}
a:hover {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strHoverLinkColour %>}
a:visited {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strVisitedLinkColour %>}
a:visited:hover {font-family: <% = strTextType %>; font-size: <% = intTextSize %>px; color: <% = strHoverLinkColour %>}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="thf.css" rel="stylesheet" type="text/css">
</head>
<base target="_blank">
<center>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">
<%
While ((Repeat1__numRows <> 0)AND (NOT Recordset1.EOF))
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="20"> <table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="20"> <div align="right">
<table width="600" border="0" cellpadding="0" cellspacing="0" style="font-family: Tahoma; font-size: 8pt; color: #2E2E2E">
<tr>
<td width="15%">
<img src="<%=Recordset1("foto1")%>" width="80" height="80" align="right"></font></td>
<td width="68%"><b><%=Recordset1("tipo")%></b>  para  <%=Recordset1("finalidade")%> <br> <%=Recordset1("cidade")%> - <%=Recordset1("bairro")%><br> <%=Recordset1("valor")%></font></td>
<td width="17%">
<img border="0" src="dorm.gif" width="12" height="12" alt="Dormitórios"> <%=Recordset1("dormitorios")%></font><br>
<br>
<img border="0" src="garagem.gif" width="11" height="9"> <%=Recordset1("garagem")%><br>
<br>
<span style="text-decoration: none">
<a href="#" onClick="window.open('pagina.asp?imobiliaria=<%=Recordset1("cod")%>&<%=Recordset1("foto1")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,height=550,width=650'); return false;">Veja mais...</a></span></td>
</tr>
</table>
</div><hr>
</td>
</tr>
</table>
</td>
</tr>
</table>
<tr>
<td width="50%" height="65" align="default">
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</td>
</tr></body>
</center>
</html>
<%end if %>
<%
Recordset1.Close()
set conn = nothing
%>@@@@@@@@@@@@@@@@@@@@@@@@@@@Gostaria de adicionar nesse código a forma de fazê-lo abrir 6 registros sendo que se no banco de dados só houver 5, ele mostre somente 5.
Sou grato desde já pela atenção
