prima di

rs.Open strsql, conn, 1, 2

metti

Response.Write "maGGica SQL...: " & strsql
Response.Flush

poi posta quello che viene a video