Fijate en esta parte ....
Código:
Set strConn = Server.CreateObject("ADODB.Connection")
Aca estableces
strConn y en el resto del codigo usas ...
Código:
set RSdata = Conn.Execute(sSQL4)
Fijate que en esta parte pones
Conn y no
strConn
El resto del codigo lo veo bien. Prova con eso si seguis teniendo problema avisa nuevamente.
Saludos