<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% CID = 64 DBConnectString = Application("LRB_ConnectionString") Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.open DBConnectString Set RecordSet = Server.CreateObject("ADODB.Recordset") SQLStatement = "clients.cl_ClientsSitePageSelectPerCID ('" & CID & "')" RecordSet.Open SQLStatement, DBConnection, 3, 3 If Not RecordSet.EOF Then RecordSet.MoveFirst CountRecs = 0 Do While Not RecordSet.EOF CountRecs = CountRecs + 1 RecordSet.MoveNext Loop RecordSet.MoveFirst Randomize intRandNum = int(rnd*CountRecs) LabelRecs = 0 Do While Not RecordSet.EOF LabelRecs = LabelRecs + 1 If intRandNum = LabelRecs Then SPID = Trim(RecordSet.Fields("SPID").Value) strFileName = Trim(RecordSet.Fields("strFileName").Value) strPageName = Trim(RecordSet.Fields("strPageName").Value) End If RecordSet.MoveNext Loop Set RecordSet = Nothing Response.Redirect "../" & strFileName Else Response.Redirect "../table.asp" End If DBConnection.Close Set DBConnection = Nothing %>