Database

<WebMethod()> Public Function CreateTestConnections(ByVal NumberOfConnections As Integer) As String
    'This is for testing only!, remove from production code
    Dim conSQL As Array = Array.CreateInstance(GetType(SqlConnection), NumberOfConnections)
    Dim t As Long
    For t = 0 To NumberOfConnections - 1
        Try
            conSQL(t) = New SqlConnection(ConfigurationSettings.AppSettings("connectionstring"))
            conSQL(t).Open()
        Catch e As Exception
        End Try
    Next t
    'pause for 20 seconds
    Dim Start, Finish, TotalTime As Double
    Start = Timer
    Finish = Start + 20.0
    Do While Timer < Finish
        ' Do other processing while waiting for 20 seconds to elapse.
    Loop
    TotalTime = Timer - Start   ' Calculate total time.
    For t = 0 To NumberOfConnections - 1
        conSQL(t).Close()
        conSQL(t).Dispose()
    Next t
    Return "Finished"
End Function