function getRecords(strSQL)

	Dim rsTemp
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
	
	with rsTemp
		.activeConnection = Session("ADOSQLConnection")
		.cursorLocation = 2
		.cursorType = 0
		.lockType = 3
		.Source = strSQL
		.Open()
	end with
	
	Set getRecords = rsTemp
	
end function