No tengo ni idea de como solucionar este problema

[Shiryu_Libra]

ok, realiza lo siguiente
cambia esto

Set rsTD = cn.execute(strSql)

por esto otro

rsTD.open strSql,cn,3,3

ahora tienes problemas con estas ejecuciones, debido a que has establecido que son Recordsets.....

lo otro que pudieras realizar es eliminar estas 2 lineas, y dejar intacto el codigo

'set rsTD = server.createobject("ADODB.recordset")
'set rsPA = server.createobject("ADODB.recordset")

nota que aki solo las he puesto como comentarios, tienen el apostrofe o comilla simple al principio, realiza esto ultimo primero y comenta