Hi,

Getting the following error message:


Microsoft VBScript runtime error '800a01a8'
Object required /cpa/dt-new/updater2b.asp, line 40

A little baffled and I just cannot see where the problem is, I know its going to be something simple! The code is below and the last line is line 40.

Dim strConn, objConn, strMonthEnd, strDate
Dim objRS_Teams, strQ_Teams, objRS_TeamPlayers, strQ_TeamPlayers, strQ_TeamUpdate
Dim strQ_MOM, objRS_MOM, strQ_WOM, objRS_WOM, strQ_MOMUpdate, strQ_WOMUpdate, strQ_MonthEnd
Dim arrTeamPlayers(12,2), strTeamSN, strTeamScore, strTeamScoreDiff, strGkScore, strDefScore, strMidScore, strStrScore, strPresMonth
Dim strMonthEndScore, strTeamPlayerID, strTeamPlayersCounter, strPositionOld, strPositionNew, strMovement, strPositionCounter
Dim strMOMPtsCheck, strWOMPtsCheck
Dim strLeagueCount
Dim strLeague
'***** Open db connection *****
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=mysql10.streamline.net; DATABASE=**********; UID=**********;PASSWORD=**********; OPTION=3"
objConn.Open strConn
'***** Retrieve month end from form *****
strMonthEnd = Trim(Request.Querystring("monthEnd"))
'************************************************* ************************************************** ****************************
'************************* Update teams from PLAYERS db *************************
'***** Loop through the leagues *****
For strLeagueCount = 1 to 2
'***** Determine which league to update. Count 1 = BCP and Count 2 = LOD *****
If strLeagueCount = 1 Then
strLeague = "bcp"
ElseIf strleagueCount = 2 Then
strLeague = "lod"
End If

strQ_Teams = "SELECT * FROM tbldt200708B WHERE league='" & strLeague & "'"
Set objRS_Teams = objConn.Execute(strQ_Teams)


Any help will be much appreciated.

Thanks

Chris