Script causando sobrecarga no servidor

[Inside 2]

Este script está publicado na Locaweb ele está causando sobre carga do servidor. Inclusive também está causando sobre carga no meu IIS local.O que está errado? Já fiz várias mudanças mas nada resolveu.Por favor preciso de ajuda.dim conn_com2Set conn_com2 = Server.CreateObject("ADODB.Connection")conn_com2.Open dsn_comerciodim rscount1, sqlcount1, total1Set rscount1 = server.createobject("ADODB.Recordset")sqlcount1 = "SELECT id from registros where categoria = 3"rscount1.Open sqlcount1, conn_com2, 1, 3total1 = rscount1.recordcountset rscount1 = nothingdim strRS1, arySub1, number1, verNum1, flag1, bgcolor1'Gravamos o Recordset em um Array BidimensionalSet strRS1 = Server.CreateObject("ADODB.Recordset")strRS1.CursorLocation = 3strRS1.Open "SELECT id,dados1,dados2,dados3,dados4 FROM registros where categoria = 3 and status = 1", dsn_comercioarySub1 = strRS1.getRows()'Fechamos a conexão pois não usaremos maisstrRS1.closeset strRS1 = nothingDim TotalReg1, TotalNum1, vran1, x1, encontrou1, arrGerados1(0)Dim Numreg1, verGerado1, var_arrGerados1, xLoop1Function GeraRegistros1(TotalNum1)TotalReg1=Cint(uBound(arySub1,2)) ' Encontramos o Maior Array Geradovran1 = 1For x1 = 0 To TotalNum1-1 'LOOP de 1 p/ Total solicitadoencontrou1 = 1Randomize() 'Geramos o primeiro RandomNumreg1 = Cint((rnd*TotalReg1))verGerado1 = Split(var_arrGerados1,",") ' Verifica se nº geradoFor xLoop1 = LBound(verGerado1) To UBound(verGerado1)IF Trim(verGerado1(xLoop1)) = Trim(Numreg1) Then'Este "response" comentado abaixo, indica qual número se repetiram'E não armazena no Array único, fazendo gerando um novo Random'response.write "<b>[ "& verGerado1(xLoop1) &","& Numreg1 &" ]</b><br> "x1 = x1 - 1encontrou1 = 2Exit ForEnd IFNextIF encontrou1 = 1 Then 'NÃO encontrou1, gera o próximo númeroIF vran1 = 1 Then 'primeiro (Verificar este trecho)arrGerados1(0) = Numreg1vran1 = 2ElsearrGerados1(0) = arrGerados1(0) &","& Numreg1End IFvar_arrGerados1 = Join(arrGerados1)End IFNextGeraRegistros1 = var_arrGerados1End Function'Array gerado, podemos iniciar a formatação de perguntasnumber1 = GeraRegistros1(total1)verNum1 = Split(number1, ",")For x1 = LBound(verNum1) to UBound(verNum1) if flag1 = 0 then bgcolor1 = "#E5D57A" flag1 = 1 else bgcolor1 = "#E5D57A" 'bgcolor = "#F8E997" flag1 = 0 end ifresponse.write "<tr><td width=""20""></td><td bgcolor="& bgcolor1 &" width=""10""></td><td bgcolor="& bgcolor1 &" height=""50"" class=""doz""><font color=""#ff0000"" class=""onz""><b>»</b></font> <a href=""comercio_ver.asp?id=" & arySub1(0,verNum1(x1)) & """ class=""bmc2""><b>" & Ucase(arySub1(1,verNum1(x1))) & "</b></a><br>   " & arySub1(4,verNum1(x1)) & "</td></tr><tr><td height=""1""></td></tr>"Nextconn_com2.closeset conn_com2 = nothing

[Inside 2]

Estou precisando de uma força galera.Por favor alguém pode ajudar?

[ultra 0]

Sobrecarga é loop infinitoverifica se num tá faltando algum strRS1.movenext ou algo pra pular registros

[Inside 2]

Obrigado pela ajuda de todos, mas como sou inexperiente, não consegui resolver ainda.Será que vocês podem me ajudar a organizar este código para não causar esta sobre carga.

[Inside 2]

Cara!!!Muito obrigado danilo.max, resolveu o problema.Muito obrigado mesmo.Obrigado também ao ultra.