<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Bishopstrade Pty Ltd
<%
Dim Tip(18)
Tip(1) = "1"
Tip(2) = "2"
Tip(3) = "3"
Tip(4) = "4"
Tip(5) = "5"
Tip(6) = "6"
Tip(7) = "7"
Tip(8) = "8"
Tip(9) = "9"
Tip(10) = "10"
Tip(11) = "11"
Tip(12) = "12"
Tip(13) = "13"
Tip(14) = "14"
Tip(15) = "15"
Tip(16) = "16"
Tip(17) = "17"
Tip(18) = "18"
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(intHighestNumber * Rnd) + 1
End Function
Dim strRandomTip
strRandomTip = Tip(RandomNumber(18))
%>
<%
DIM objConn
DIM objRSLiner
DIM strSQLLiner
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../users/btlsa.mdb")
strSQLLiner = "SELECT oneLiners.* FROM oneLiners WHERE oneLiners.id_oneLiners = " & strRandomTip & ";"
Set objRSLiner = Server.CreateObject("ADODB.RecordSet")
objRSLiner.Open strSQLLiner,objConn
%>
Thought for the day:
<%
DO WHILE NOT objRSLiner.EOF
%>
<%=objRSLiner("oneLinerText")%>
<%
objRSLiner.MoveNext
LOOP
%>
<%
objRSLiner.Close
Set objRSLiner = Nothing
Set objConn = Nothing
%>