<%
set oConn=Server.CreateObject("ADODB.Connection&q uot;)
set rs=Server.CreateObject("ADODB.Recordset" )
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tubase.mdb")
sql = "SELECT * FROM tutabla"
rs.Open SQL, oConn,3,1
intTotalRecords = rs.RecordCount
Randomize() ' iniciamos en generador
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
response.write rs(3) 'donde "0" es el numero de columna a mostrar
rs.Close
oconn.close
%>
<img src="http://www.expansionweb.net/images/ewbanner.gif">Jose Maria Fernandez
<a href="mailto:
[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>