Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!
On Error Resume Next set myConn = Server.CreateObject("ADODB.Connection") myConn.open MM_TowerConn2_STRING If err.Number = 0 Then if myConn.State = 1 then On Error Goto 0 'run script here set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_TowerConn2_STRING Command1.CommandText = "Csm1" Command1.Prepared = true set cars = Command1.Execute If err.Number = 0 Then connectionComplete = "true" On Error Goto 0 cars_numRows = 0 Repeat1__numRows = -1 Repeat1__index = 0 cars_numRows = cars_numRows + Repeat1__numRows end if end if else connectionComplete = "false" ' Error trapping - connection failed end if
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.