Jimmy
Fri Sep 08 13:58:17 CDT 2006
This is a multi-part message in MIME format.
------=_NextPart_000_0007_01C6D357.375C2900
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
this is what i have working so far... tell me what you think:
<%
Dim oConn, oRS, randNum
Set oConn=3DServer.CreateObject("ADODB.Connection")
Set oRS=3DServer.CreateObject("ADODB.recordset")
oConn.Provider=3D"Microsoft.Jet.OLEDB.4.0"
oConn.Open Server.MapPath("temp.mdb")
oRS.Open "SELECT EMAIL_ADDRESS FROM TABLE1", oConn, adOpenStatic, =
adLockReadOnly
Randomize()
randNum =3D CInt((oRS.RecordCount - 1) * Rnd)
Response.Write("RecordCount: " & oRS.RecordCount & "<br><br>")
oRS.Move randNum
Response.Write oRS("EMAIL_ADDRESS")
oRS.close
oConn.close
Set oConn =3D nothing
Set oRS =3D nothing
%>
this opens up the table, gets a count of num records, generates a random =
number between 0 and numrecords-1, then moves to that record, and =
displays a random email address.
seems like it works perfectly... do you see any issues?
"Aaron Bertrand [SQL Server MVP]" <ten.xoc@dnartreb.noraa> wrote in =
message news:ODU96L30GHA.1568@TK2MSFTNGP03.phx.gbl...
> >i dont have a database ready yet to TRY it. so instead im trying to=20
>>UNDERSTAND it first.
>> my confusion is in the fact that im thinking if i have 100 records, i =
need=20
>> to generate a random number between 1 and 100 so that i can open THAT =
>> random record. do you see what im trying to do?
>=20
> Sort of.
>=20
> The problem is, if you have a number between 1 and 100, and you are =
trying=20
> to get the row where [TableName]ID =3D that number, you're going to be =
> disappointed when you don't have a perfectly sequential set of =
[TableName]ID=20
> values (even if the total number is exactly 100). Because of deletes, =
> rollbacks, and failures, you are likely going to have gaps in your=20
> [TableName]ID. This is why the top solution is better than a solution =
that=20
> relies on mapping recordcount to actual data.
>=20
> A=20
>=20
>
------=_NextPart_000_0007_01C6D357.375C2900
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>this is what i have working so far... =
tell me what=20
you think:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
color=3D#0000ff=20
size=3D1><STRONG><%<BR>Dim oConn, oRS, =
randNum</STRONG></FONT></DIV><FONT=20
face=3DArial color=3D#0000ff size=3D1><STRONG>
<DIV><BR>Set oConn=3DServer.CreateObject("ADODB.Connection")<BR>Set=20
oRS=3DServer.CreateObject("ADODB.recordset")</DIV>
<DIV><BR>oConn.Provider=3D"Microsoft.Jet.OLEDB.4.0"<BR>oConn.Open=20
Server.MapPath("temp.mdb")</STRONG></FONT></DIV>
<DIV><STRONG><FONT color=3D#0000ff size=3D1></FONT></STRONG> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1><STRONG>oRS.Open =
"SELECT=20
EMAIL_ADDRESS FROM TABLE1", oConn, adOpenStatic,=20
adLockReadOnly<BR>Randomize()<BR>randNum =3D CInt((oRS.RecordCount - 1) =
*=20
Rnd)</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D1><STRONG><BR>Response.Write("RecordCount: " & =
oRS.RecordCount &=20
"<br><br>")</STRONG></FONT></DIV>
<DIV><STRONG><FONT color=3D#0000ff size=3D1></FONT></STRONG> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1><STRONG>oRS.Move=20
randNum<BR>Response.Write oRS("EMAIL_ADDRESS")</STRONG></FONT></DIV>
<DIV><STRONG><FONT color=3D#0000ff size=3D1></FONT></STRONG> </DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D1><STRONG>oRS.close<BR>oConn.close<BR>Set oConn =3D =
nothing<BR>Set oRS =3D=20
nothing<BR>%></STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>this opens up the table, gets a count =
of num=20
records, generates a random number between 0 and numrecords-1, then =
moves to=20
that record, and displays a random email address.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>seems like it works perfectly... do you =
see any=20
issues?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>"Aaron Bertrand [SQL Server MVP]" =
<</FONT><A=20
href=3D"mailto:ten.xoc@dnartreb.noraa"><FONT face=3DArial=20
size=3D2>ten.xoc@dnartreb.noraa</FONT></A><FONT face=3DArial =
size=3D2>> wrote in=20
message </FONT><A =
href=3D"news:ODU96L30GHA.1568@TK2MSFTNGP03.phx.gbl"><FONT=20
face=3DArial =
size=3D2>news:ODU96L30GHA.1568@TK2MSFTNGP03.phx.gbl</FONT></A><FONT=20
face=3DArial size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
>i dont have a=20
database ready yet to TRY it. so instead im trying to =
<BR>>>UNDERSTAND it=20
first.<BR>>> my confusion is in the fact that im thinking if i =
have 100=20
records, i need <BR>>> to generate a random number between 1 and =
100 so=20
that i can open THAT <BR>>> random record. do you see what im =
trying to=20
do?<BR>> <BR>> Sort of.<BR>> <BR>> The problem is, if you =
have a=20
number between 1 and 100, and you are trying <BR>> to get the row =
where=20
[TableName]ID =3D that number, you're going to be <BR>> disappointed =
when you=20
don't have a perfectly sequential set of [TableName]ID <BR>> values =
(even if=20
the total number is exactly 100). Because of deletes, <BR>> =
rollbacks,=20
and failures, you are likely going to have gaps in your <BR>>=20
[TableName]ID. This is why the top solution is better than a =
solution that=20
<BR>> relies on mapping recordcount to actual data.<BR>> <BR>> =
A=20
<BR>> <BR>></FONT></BODY></HTML>
------=_NextPart_000_0007_01C6D357.375C2900--