Set objRS = con.Execute(strconnect)
While NOT objRS.EOF
If SRSUSerNAME <> objRS("USER_NAME") Then
Response.write "<br><br><b>To Do List For " & SRSUserNAME & "</b><br>"
SRSUSerNAME = objRS("USER_NAME")
response.write "KEY----DESCRIPTION<br>"
End If
Response.write objRS("TASKS_PK") & "<br>"
objRS.MoveNext
Wend