Sub Save_Form(Sender As Object, E As EventArgs)
Dim i As Integer = 1
Dim J As Integer = 1
For i = 1 to 1
if j < 10 then
Session("Point_Y" & j & "") = GetPoint1.value
Session("Point_X" & j & "") = GetPoint2.value
j = j + 1
End if
Next
End Sub
Sub Save_Form(Sender As Object, E As EventArgs)
Dim i As integer
For i = 1 to 9
Session("Point_Y" &i)= GetPoint1.value
Session("Point_X" &i) = GetPoint2.value
next
End Sub
เอาแค่ loop for เดี๋ยวมันก็รันเองครับ น่าจะใช้ได้นะครับ
Load balance : Server 00
