سوالی در خصوص ASP.NET

[emad11]

دوستان عزیز سلام . من تو عضو تازه وارد هستم و امیدوارم که وجودم در سایت برای دوستان موثر باشه .

من یک سیستم تبلیغاتی نوشتم (www.tablighati.com (http://www.tablighati.com/)) که در حال حاضر 800 تا تبلیغ تو سایت هست . برای نمایش تصادفی تبلیغات از کد زیر استفاده کردم و تا الان هیچ مشکلی نداشته .
می خواستم ببینم آیا این کد در تعداد تبلیغ (مثلا 10000) و نمایش بالا به مشکل بر می خوره یا نه.
این تابع در ایندکس سایت فراخوانی میشه
کد :

Sub ClassC(ByVal Group As String, ByRef Subject As String, ByRef Output As String)
Dim OpenClassC As DataSet
If Group = "Default" Then
OpenClassC = Read("SELECT Code,Picture,PictureWidth,Subject FROM ClassC WHERE (ClassC.Status = '" & CStr("تائید شده") & "')")
Else
OpenClassC = Read("SELECT Code,Picture,PictureWidth,Subject FROM ClassC WHERE (ClassC.Status = '" & CStr("تائید شده") & "' AND ClassC.MainGroup = '" & CStr(Group) & "')")
End If
Subject = ""
If Group <> "Default" Then Subject = "(" & Group & ")"
Dim i, Count1, Count, Value, Width As Integer
Dim Array As New ArrayList()
Count = 72
Output = ""
If OpenClassC.Tables(0).Rows.Count < Count Then
Count = OpenClassC.Tables(0).Rows.Count
End If
For i = 0 To OpenClassC.Tables(0).Rows.Count - 1
Array.Add(CStr(i))
Next
Output = Output & "<table bordercolor='#FFFFFF' border='2' cellpadding='0' cellspacing='0' width='776'><tr>"
While (Count > 0)
If Count1 = 4 Then
Output = Output & "</tr><tr>"
Count1 = 0
Else
Count1 = Count1 + 1
Count = Count - 1
Value = CInt(Rnd() * (Array.Count - 1))
If OpenClassC.Tables(0).Rows(Val(Array.Item(Value))). Item(1) = "" Then
Output = Output & "<td height='150' style='width: 194; text-align: center;'><table><tr><td height='120' style='width: 174px; text-align: center'><a href='AdsDetails.aspx?id=" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(0) + 1436) & "'><IMG border='0' width='100' alt='" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(3)) & "' src='\Ads\ClassC\Default.jpg'/></a></td><td style='width: 20px; text-align: center'><IMG border='0' alt='V7star.gif' src='\Images\Stars\V7star.gif'/></td></tr></table><table><tr><td style='width: 194px; text-align: center; direction: rtl'><a style='text-decoration: none' dynamicanimation='fpAnimformatRolloverFP1' fprolloverstyle='color: #FF0000' onmouseover='rollIn(this)' onmouseout='rollOut(this)' language='Javascript1.2' href='AdsDetails.aspx?id=" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(0) + 1436) & "'>" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(3)) & "</a></td></tr></table></td>"
Else
Width = OpenClassC.Tables(0).Rows(Val(Array.Item(Value))). Item(2)
Width = WidthAdsClassC(Width, 120)
Output = Output & "<td height='150' style='width: 194; text-align: center;'><table><tr><td height='120' style='width: 174px; text-align: center'><a href='AdsDetails.aspx?id=" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(0) + 1436) & "'><IMG border='0' width='" & Width & "' alt='" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(3)) & "' src='\Ads\ClassC\" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(1)) & "'/></a></td><td style='width: 20px; text-align: center'><IMG border='0' alt='V7star.gif' src='\Images\Stars\V7star.gif'/></td></tr></table><table><tr><td style='direction: rtl; width: 194px; text-align: center'><a style='text-decoration: none' dynamicanimation='fpAnimformatRolloverFP1' fprolloverstyle='color: #FF0000' onmouseover='rollIn(this)' onmouseout='rollOut(this)' language='Javascript1.2' href='AdsDetails.aspx?id=" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(0) + 1436) & "'>" & CStr(OpenClassC.Tables(0).Rows(Val(Array.Item(Valu e))).Item(3)) & "</a></td></tr></table></td>"
End If
Array.RemoveAt(Value)
End If

ممنون .