Tuesday, 29 November 2011

DISPLAY RANDOM TEXT

Ever wanted to display random tips or quotes on your website? Well, Look no further. Here is a random text displayer that we used on a website we built that displays a random tip every time the browser is refreshed.

The first thing you need to do is create a database with a table called tblQuickTips with these fields:
fID - autonumber
fTip - text field or memo field depending on how long your tips are

Then, start adding some tips to your database.

Next, create a page called randomtext.asp and copy the below code into your page:

<% DIM mySQL, objRS mySQL = "SELECT MAX(fID) AS MaxTip FROM tblContent_Quick_Tips" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn Randomize DIM intRecord intRecord = Int(objRS("MaxTip") * Rnd + 1) objRS.Close Set objRS = Nothing mySQL2 = "SELECT fTip FROM tblContent_Quick_Tips WHERE fID = '" & intRecord & "'" Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS2.Open mySQL2, objConn Response.Write objRS2("fText") objRS2.Close Set objRS2 = Nothing %>

All done. Just publish your page and database and click refresh on your browser. Each time you refresh, a random tip will be displayed.

http://www.aspwebpro.com/aspscripts/contentmgmt/randomtext.asp

No comments:

Post a Comment