to trouble shoot this error, change line 97:
Set rsDisplayData = rsDisplayData_cmd.Execute
to:
On Error Resume Next
Response.Write(rsDisplayData_cmd.CommandText)
Set rsDisplayData = rsDisplayData_cmd.Execute
this will write the sql generating the error to the screen, please post back the SQL