Set rsPlanID = Server.CreateObject(\"ADODB.Recordset\")
rsPlanID.CursorLocation = adUseClient
strSQL = \"SELECT PlanID FROM ATTJournals WHERE ATTUserDataID = \" &am
Unless you need to navigate back and forth in the recordset, just use the default settings:
strSQL = "SELECT PlanID FROM ATTJournals WHERE ATTUserDataID = " & ATTUserDataID
Set rsPlanID = m_objConn.Execute(strSQL)
Also, your code is wide open for SQL Injection attacks - you better learn about it and change your code to use Parameters instead.